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3 COPY LOG7A68 ** MAP EC HISTORY ** 002500 25DE 198 A (ENTPT) POINT TO MAP ENTRY POINT TABLE 
Metts eCPOSSSSSSSSS SLSLS SS SS SSCS SSS SSS CSS CSS SC CSS SCSCSCSCCSL CSS S$ SC CSL LL Ss Ss VO QR a A HI A RR OIRO IORI OR IO tO GR foe ak kak ok 
5 * * 200 ek KK Kk kk RO Rk ko kK KK lok ik ko iio tok ak kk kk kc kok ada ikea kok atc ak atc ak ok 
6 * KX PREREQUISITES KK * 201 ** *« 
7 * * 202 ** THE FOLLOWING TABLES ARE USED BY THE MDI SUPERVISOR (D3C00) * x 
8 x NONE * 203 ** TO LOCATE THE CORRECT RULE TO INVOKE, TO ORTAIN THE PROPER ** 
9 x * 204 ** PARAMETERS TO PASS TO THE TU'S AND T6 PASS TO THE OPERATOR * 
10 42 KK OO I ICICI OR IO a rok i gk a iio tok aati aac ak ak ak ok ako ok 205 ** THE INDICATED MESSAGE(S). THERE ARE FOUR TABLES USED FOR THIS * * 
11 * * 206 ** PURPOSE THEY ARE: 4k 
12 * KK MODIFICATIONS KX * 207 ** * 
13 * x 208 ** STEP AND RULE ADDRESS TABLE 4k 
14 * CHANGES MADE TO CORRECT ERRORS FOUND WHILE IN TEST * 209 ** THIS TABLE GIVES THE ADDRFSS OF THE RULE TO INVOKE AND * * 
15 * * 210 ** THE ASSOCIATED STEP DECIMAL STEP NUMBER OF THAT RULE. * 
16 ORO I RO RO a kk kk kok ke gok akake ak tc kak ofa afe akc ake ak 211 ** ENTRIES ARE AS FOLLOWES ** 
17 * * 212 ** A AN ADDRESS OF THE RULE DC START AREA * 
18 * KK x REA'S INCORPORATED *x« x * 213 ** B THE STEP NUMBER IN DECIMAL ** 
19 * x 214 ** C AN EQUATE FOR THE STEP NUMBER * 
20 * NONE * 215 ** « 
21 * *x 216 ** RULE INFORMATION TABLE *% 
22 JRO IO IO I I III RIG I IO I a I a it kak feat fot ae ate ak ak 217 ** THIS TABLE CONTAINES THE REQUIRED INFORMATION TO EXECUTE * x 
33 * * 218 ** THE APPROPRIATE RULE UNDER MDI. EACH RULE HAS ITS OWN * * 
a4 x KX SPECIAL INSTRUCTIONS tk K * 219 ** UNIQUFLY DEFINED AREA INDICATED BELOW. END OF TABLE IS * 
25 * x 220 ** INDICATED WITH A X'OOOO' FOR THE RULE EQUATE. Ok 
26 * NONE * 221 ** * 
27 * x 222 ** SQUES er 
DB eA a a oR a KK I KK KK KR OR ik i ak kak doko ike teak ake ak ak ak 223 ** A) RULE EQUATE X*01008 *x 
59 * * 224 «x 3} ADDRESS OF THE YES LEG RULE * * 
30 * KK FE. C. HISTORY KCK * 225 ** a 
31 * * 226 ** SFIXT ** 
32 * DATE 17AUG78 DATE 10JAN79 DATE DATE * 227 ** 3} RULE EQUATE X*0101' * x 
33 * E.C. 755391 E.C. 375222  £E.C. ELC. : ae ve B) ADDRESS OF MESSAGE TO PRINT ee 
KEM TLS Let SSS FSS TST S STS TSS PSS CLS SS SS SS SSS SSCS SS SSCL SS SSS CSC SCCLS SSC SSCOCLCe Se 2 2 2 230 ** $STOP 1k 
002500 37 I7A68 START X¥*2500! START ADDRESS OF ALL 'I' TYPE PROG 231 ** 4 RULE EQUATE X'0102! Ok 
000100 38 @QUES EQU Xx*01008 EQUATED VALUE FOR MDI STATEMENT 232 ** B) ADDRESS OF MESSAGE ** 
000101 39 OFIXT EQU X'*'01018 EQUATED VALUE FOR MDI STATEMENT 233 ** eK 
000102 40 @STOP EQU x*0102° EQUATED VALUE FOR MDI STATEMENT 234 ** $GOTO *x 
000200 41 @GOTO EQU X¥'*0200° EQUATED VALUE FOR MDI STATEMENT 235 ** A) RULE EQUATE X'0200' er 
000201 42 @CALL EQU X¥'O2018 FOUATED VALUE FOR MDI STATEMENT 236 ** B) ADDRESS OF MESSAGE * 
000300 43 @INPT EQU x*0300! EQUATED VALUE FOR MDI STATEMENT 237 ** C) NAME OF MAP TO GO TO *K 
000400 44 @QUXX EQU Xx*O400! EQUATED VALUE FOR MDI STATEMENT 238 ** D) ENTRY POINT WITHIN GO TO MAP TO USE Ok 
000500 45 aTUXX EQU x*'05008 EQUATED VALUE FOR MDI STATEMENT 239 ** FE) INDICATOP FOR EXTERNAL OR INTERNAL REFERENCE * 
000600 46 @NVLD EQU X¥'0600! EQUATED VALUE FOR MDI STATEMENT 241 ** kk 
000000 47 EQ EQU x'0000! EQUATE FOR EQ 242 ** SCALL * 
000004 48 NE EOQU X'OOO48 EQUATE FOR NOT EQUAL 243 ** A) RULE EQUATE X'0201' * 
000008 49 HI EQU X*O0008'! EQUATE FOR HIGH 244 *x* B) ADDRESS OF MESSAGE 7K 
00000C 50 NH EQU X"OO0C! EQUATE FOR NOT HIGH 245 ** C) NAME OF MAP TO CALL OK 
000010 51 LO EQU X¥*0010°* EQUATE FOR LOW 246 ** D) ENTRY POINT WITHIN CALLED MAP TO USE * 
000014 52 NL EQU X*O0748 EQUATE FOR NOT LOW 247 ** E) INDICATOR FOR EXTERNAL OR INTERNAL REFERENCE 2K 
000010 53 LT EQU X¥*0010! EQUATE FOR LESS THAN 248 ** 2 
00000C 54 LE EQU X'O00C! EQUATE FOP LESS THAN OR EQUAL TO 249 ** SINPT eK 
000008 55 GT EQU x*oo0o8! EQUATE FOR GREATER THAN 250 ** A) RULE EQUATE x'0300! ok 
000014 56 GE EQU X*ooTK# EQUATE FOR GREATER THAN OR EQUAL TO 257 ** B) INPUT TYPE sae OR HEX) ** 
000200 57 ON EQU xX*0200! EQUATE FOR ON 252 ** C) ADDRESS OF YES LEG RULE * 
000202 58 OF EQU X*0202! EQUATE FOR OFF 253 ** D) DESTINATION LOCATION OF INPUT DATA ** 
000204 59 MX EQU Xx*O20U8 EQUATE FOR MIXED 254 ** E) LENGTH OF INPUT DATA * 
000000 60 EBC EQU x'0000°8 EQUATE FOR EBCDIC DATA TRANSFER 255 ** F) LOWER LIMIT OF GOOD DATA * x 
000001 61 HEX Eu X¥* 00018 EQUATE FOR HEX DATA TRANSFER 256 ** G) HIGHER LIMIT OF GOOD DATA * 
000007 62 XTRNL EQU X'0001' FOUATE FOR EXTERNAL REFERENCE 257 ** * 
000000 63 INTRNL EQU x*00008 EQUATE FOR INTERNAL REFERENCE 258 ** SQUXX * x 
000000 64 PARM EQU x*oo008 EQUATE INDICATING PARAMETER 259 ** A) RULE EQUATE x'o4yoot ok 
000001 65 DA FOU xX'0001! EQUATE FOR DEVICE ADDRESS 260 ** B) ADDRESS OF YES LEG RULE ok 
000002 66 UA EQU xX*0002' EQUATE FOR UNIT ADDRESS 261 ** C) TU BRANCH TO ADDRESS TUL TEAL * 
000000 67 DUMMY EQU x*'0000! DUMMY EQUATE 262 ** D) TU BRANCH TO ADDRESS (SECONDARY) *% 
001800 69 PID EQU *-~X'QODOO! ADDRESS OF MDI HEADER 263 ** E) LENGTH OF PARAMETER IN BYTES * 
000232 70 PTYPE EQU *-X"22CE! ADDRESS OF PROCESSOR TYPE FIELD 264 ** F) PARAMETER TO PASS TO TU Ok 
00180C 71 STEPNUM EQU PID+tX*OO00C! ADDRESS OF DFCIMAL STEP NUMBER 265 ** G) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER ee 
00180E 72 OPWD1 EQU PID+X*'OOOE! ADDRESS OF OPTION WORD ONE 266 ** eK 
001810 73 OPWD2 FOU PID+X'0010! ADDRESS OF OPTION WORD TWO 267 ** STUXX ok 
001818 74 TUSTATUS EQU PID+X'0018° ADDRESS OF TU STATUS WORD 268 ** A) RULE EQUATE x*0500¢ 2 
00181A 75 TUWORK EQU PID+X'OO1A! ADDRESS OF TU WORK AREA 269 ** B) ADDRESS OF YES LEG RULE Ok 
00189A 76 TUPARM1 EQU PID+X"OO9A® ADDRESS OF PARM 1 POINTER 270 ** C)} TU BRANCH TO ADDRESS * 
00189C 77 TUPARM2 EQU PID+X*O0O09C! ADDRESS OF PARM 2 POINTER 271 ** D) TYPE OF COMPARE TO MAKE ON RESULTS x 
00189E 78 TUPARM3 EQU PID+X*OO9E! ADDRESS OF PARM 3 POINTER 272 ** E) LENGTH OF COMPARED RESULTS 2K 
0018A0 79 TUPARMG £EQU PID#*X*OOAO! ADDRESS OF PARM & POINTER 273 ** F) MASK FIELD FOR COMPARE * 
0018A2 80 TUPARMS EQU PID+X"'OOA2' ADDRESS OF PARM 5 POINTER 274 ** G) LENGTH OF PARAMETER IN BYTES * 
0018A4 81 TUPARM6 EQU PID+X'OOAG? ADDRESS OF PAR™M 6 POINTER 275 ** H) PARAMETER TO PASS TO THE TU OK 
0018A6 82 TUPARM7 EQU PID+X'OOA6! ADDRESS OF PARM 7 POINTER 276 ** I) STORE ADDRESS FOR FIRST 8 WORDS OF PARAMETER *%* 
0018A8 83 TUPARM8 FOU PIDtX'OOA8! ADDRESS OF PAR 8 POINTER 277 ** * 
OO18AA 84 TUPARMY EQU PID+X'OOAA! ADDRESS OF PARM 9 POINTER 278 ** $NVLD ok 
Q0O018AC 85 TUPARM10 EQU PID+tX'OOAC! ADDRESS OF PARM 10 POINTER 279 ** A) RULE EQUATE X'06008 OK 
0O018AE 86 TUPARM11 at PID+X'OOAF®* ADDRESS OF PAPM 11 POINTER 281 ** *x 
0018B0 87 TUPARM12 EOU PID+X'OOBO! ADDRESS OF PARM 12 POINTER 282 ** ENTRY POINT TABLE ok 
0018B2 88 TUPARM13 EQU PID+X'OOB2# ADDRESS OF PARM 13 POINTER 283 ** THIS TABLE CONTAINS THE ENTRY POINTS WITHIN THE MAP THAT *x 
0018B4 89 TUPARM14 EQU PID+X'OOBY! ADDRESS OF PARM 14 POINTER 284 ** THE MAP CAN BE ENTERED FROM THESE ENTRY POINTS ARE ** 
0018B6 90 TUPARM15 EQU PID+X*OOB6! ADDRESS OF PARM 15 POINTER 285 ** REFERENCED BY NAME AND ADDRESS. ENTRIES ARE AS FOLLOWES: ** 
0018B8 91 TUPARM16 EOU PID+X*OOB8! ADDRESS OF PARM 16 POINTER 286 ** 1 
OO18BA 92 TUMSGWTR EQU PID+X"OOBA' ADDRESS OF -> TO COMMON MSG WRITER 287 ** A) NAME OF ENTRY POINT 2 
0018BE 93 TUU EQU PID+X'OOBE! ADDRESS OF UNIT ADDRESS IN EBC 288 ** B) ADDRESS OF ENTRY POINT RULE TABLE OK 
0018C0 94 TUDA EQU PID+X'OOCO! ADDRESS OF DEVICE ADDRESS IN EBC 289 ** * x 
0018C2 95 TUBUFF EQU PID+X'00C2! ADDRESS OF LAST USED WORD IN MAP 290 ** THE ENTRY POINT TABLE END IS INDICATED BY A xX'O0O00! * 
0018C4 96 TULAST EQU PID+X*O00C4! ADDRESS OF LAST ADDRESSABLE WORD 291 ** * > 
0018C6 97 TURESULN Eg PID+X"'O0C6! ADDRESS OF LENGTH OF TU RESULTS 292 ** MESSAGE TABLE ** 
0018C8 98 TURESUL EQU PID+X*00C8! ADDRESS OF TU RESULTS FIELD 293 ** THIS TABLE CONTAINES THE MESSAGE PASSED TO THE OPERATOR * 
0O018FC 99 MAPNAME' EQU PID+X'OOFC! ADDRESS OF MAP NAME FIELD IN HEX 294 ** VIA THE MDI SUPERVISOR. THE TABLE IS AS FOLLOWES: ** 
001948 100 TUINPT EQU PID+X'0148! ADDRESS OF $INPT DATA 295 ** * 
00196E 101 PARMARA Eu PID+X'O16E! ADDRESS OF $INPT INPUT AREA 296 ** A EQUATE FOR START OF MESSAGE BLOCK *k 
001988 102 @DCADD1 EQU PID+X'0O1B8! MDI POTNTER 297 ** B) NUMBER OF LINES OF MESSAGE OK 
0019BA 103 @DCADD2 EQU PID+X'O1BA* MDI POINTER 298 ** C) LENGTH OF FOLLOWING LINE * x 
0019C4 104 SUPSTAT EOQU PID+X*'O1Cg" ADDRESS OF MDI STATUS 299 ** D) FIRST LINE OF MESSAGE * 
0019D0 105 DEVADD EQU PID+X*O1DO! ADDRESS OF DEVICE ADDRESS TABLE 0 300 ** E) LENGTH OF FOLLOWING LINE ** 
0019DA 106 DEVADD1 EQU PID+X"O1DA' ADDRESS OF DEVICE ADDRESS TABLE 1 301 ** F) SECOND LINE OF MESSAGE ** 
0019E4 107 DEVADD2 EQU PID+X*O1E4!* ADDRESS OF DEVICE ADDRESS TABLE 2 302 ** G) ETC. ** 
OOTIEE 108 DEVADD3 EQU PID+X"O1EE! ADDRESS OF DEVICE ADDRESS TABLE 3 303 ** x 
0019F8 109 DEVADDS EQU PID+X'O1F8! ADDRESS OF DEVICE ADDRESS TABLE 4 SOG RH HK HR EO ROR RIOR OR IRR FOR ROKK ROK KR ok kok kK kok a ok 
OO1A02 110 DEVADDS EQU PID+tX'0202! ADDRESS OF DEVICE ADDRESS TABLE 5 305 2a RRR I OK ROR RII IO IO IR IGIOR III ROR ait a a aK aR kai ago ak akc ak 
OO1A0C 111 DEVADD6 EQU PID+X*020C! ADDRESS IF DEVICE ADDRESS TABLE 6 
001A16 ite DEVADD7 EGG a. prot O26" ADDRESS OF DEVICE ADDRESS TABLE 7 
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T7A68 --- SCOPE LOOP P/N=6826993 EC=375222 PAGE 03 I7A68 --- SCOPE LOOP P/N=6826993 EC=375222 PAGE O3A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000012 537+B50 EOU 18 2 2 * THESE BITS ARE USED WITH THE OO0000D 654 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 
000013 5328+B51 EQU 19 3 1 * SECOND OPTION WD AND ARE TO OO000R 655 READ1 Egy 14 READ WITH FUNCTION BIT 3 ON SVC 
000014 539+B52 EQU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER OOOOOF 656 RSTAT EQU 15 READ STATUS SVC 
000015 540+B53 FOU 31 5 4 * 000010 657 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000016 541+B54 FOU 32 6 2 * 000011 658 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 
000017 542+B55 EOU 23 7 1 *x 000012 659 CTRL EOU 18 CONTROL SVC 
000018 543+B56 EQU 24 8 8 * 000013 660 RICB EOU 19 RELEASE INTEPUPT CONTROL BLOCK SVC 
000019 5444B57 ROU 35 9g 4 * 000014 661 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC 
OOO01A 545+B58 EQU 26 10 2 * 000015 662 HIO EQU 21 HALT ALL I/O 
00001B S546+B59 EQU 27 11 1 * 000016 663 REQSD EQU 22 REQUEST USE OF DCP DISK SVC 
00001C 547+B60 EQU 28 12 8 * 000017 664 RELSD EGU 23 RELEASE USE OF DCP DISK Svc 
00001D 548+B61 EOU 29 13 u 5 000018 665 HALT EQU 24 HALT SVC 
OOO01E 54U9+B62 EQU 30 14 2 * 000019 666 ETOH at 25 EBCDIC TO HEX SVC TRING 
OOO001F 550+B63 EQU 31 15 1 * OOOOTA 667 HTOE EOU 26 HEX TO EBCDIC SVC STRENG 
OOOO01E 551+CH EQU 30 14 2 CHARACTER SUPPLIED 00001B 668 ATOH EQU 27 ASCII TO HEX SVC TRING 
OOO0O1F 552+CMP EQu 31 15 1 COMPARE OPERATION 00001C 669 HTOA EQU 28 HEX TO ASCII SVC TRING 
O0O26AE 0000 554+OPTN3 D xt00008 PROGRAM OPTION CONTROL WORD 3 00001D 670 ETOA EQU 29 EBCDIC TO ASCII S STR 
555+* OOO01E 671 ATOE EQU 30 ASCII TO EBCDIC Sve ST RIN 
556+* O MYSTERY INTERRUPT MI 8 CS STATUS IN PROGRESS cs OOOO1F 672 READI EQU 31 READ DATA SETS FOR M T/UT LL 
557+* 1 #3$ERROR INTERRUPT ER 9 CS AVAILABLE CSA 000020 673 WRITI EQU 32 WRITF DATA SETS FOR UTIL 
558+* 2 EXPECTED INTERRUPT XI 10 CS STATUS INTERRUPT ERR CE 675 - SSP SSS SSS LSS ESSE SSL SS SSS SSS SESS SS SS SSS CSS StS SseeerCCoSCSSSCSCSCCS SCC S SL Ses S 3 
559+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) ISBON 676 * * 
560+* 677 * EQUATES USED BY TUtS AS CONSTANTS * 
¥ 561+* 4 EXPECTED ERR/ATTENT XE 12 TEST UNIT RESULTS VOID NG 678 * * 
562+* 5 HARD ERROR FOUND HE 13 OIO CC ERROR Tocc WEE LLT ISL SS SE TS SLE PSSST SST STS SESS SSS SSE SS SSS SSS SS SSCS SC SCSCSCCPSSLS SCS SSS SCT SS SSS + fF 
563+* -6 WRONG INTR LEVEL SLE 14 NO INTERRUPT NOIN OO004E 680 PLUS EQU Cr+! PLUS CHAR 
564+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR INCC 000060 681 MINUS EQU Cat MINUS CHAR 
565+* BIT HEX 000000 683 ZERO EQU 0 
000020 5664MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED 000001 684 ONE EQU 1 
000021 567+ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 000002 685 TWO EQU 2 
000022 568+XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000003 686 THREE EQU a 
000023 569+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000004 687 FOUR EQU 4 
000024 STO+XE EQU 36 4 8 EXPECTED ERROR RESPONSE 000005 688 FIVE EQU 5 
000025 S71+HE EQU 37 5 4 HARD ERROR RETRIES 000006 689 SIX EQU 6 
000026 572+€LE EQU 38 6 2 INTERRUPT bu° WRONG LEVEL ERROR 000007 690 SEVEN FOU 7 
000027 S73+4+NI EOU 39 7 1 NO INTERRUPT EXPECTED E 000008 691 EIGHT EQU 8 
000028 5744CS EQU 40 8 8 CYCLF STATUS IN PROGRESS 000009 692 NINE EQU a 
000029 575+CSA EQU 41 9 4 CYCLE STEAL AVAILABLE OOOOOA 693 TEN EQU 10 
OOOO2A S576+CE EQU 42 10 2 CYCLE STEAL STATUS INERRRUPT ERROR 00000B 694 ELEVN EQU 11 11 
00002B 577+ISBON EOQU 43 11 1 ISB BITS ON (1-7 00000CcC 695 TWELV EQU 12 12 
00002C S78+N EQU 44 12 8 TEST UNIT RESULTS NO GOOD 00000D 696 THRTN EQU 13 13 
00002D 579+I0cCC EQU 45 13 mi OIO CC ERROR OO0000F 697 FIVTN EOQU 15 15 
00002E 580+NOIN Eu 46 14 2 NO INTERRUPT 000010 698 SIXTN EQU 16 16 
00002F 581+INCC EOQU 47 15 1 INTERRUPT CC ERROR 000020 699 THRY2 EQU 32 32 
582+ 000040 700 SIXTY EQU 64 64 
583+* COMMON BUFFER FOR PRINTING DATA 000080 701 ONE28 EQU 128 128 
58u4+* 000100 702 TWO56 EQU 256 256 
0026B0 0000 586+$TULD DC A (*-* TEST UNIT IDENTIFICATION 000400 703 ONEK EQU 1024 1024 
0026B2 0000 S87+$IOIN DC A (*- * I/O AND INTR CONDITION CODES 000800 704 TWOK EQU 2048 2048 
0026B4 0000 588+$ISB DC A (*-* R INTR STATUS BYTE & DEV ADRS 000C00 705 THREK EQU 3072 3072 
0026B6 0000 589+LSTIO DC A (*¥-* ADRS OF LAST I70 + 4 BYTES 001000 706 FOURK EQU 4096 4096 
0026B8 0000 5904DEV1 DC A (*-* DEVICE DEPENDENT DATA FEEFEP 708 M1 EQU = -1 
0026BA 0000 591+DEV2 DC A (*-* x ETFFFR 709 M2 EQU -2 -2 
0026BC 0000 592+DEV3 DC A (*- * 2 FFFFFD 710 M3 EQU -3 -3 
0026RE 0000 593+DEV4 DC A (*-* CS STATUS ERROR ISB & INTR CC FFFFFC 711 M4 EQU -4 -4 
0026B8 S5S9O4U+SCTID EQU DEVI READ ID BUFFER FOR IBIS & TERN WMT SST ST SPSS PFS PSE SSS SSP TT SS SCS TST SSS ST SS STS SS SSCL CSCS CCS SLCC SS SS SSS SL SS 2. + Ss 
0026C0 595+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 714 * * 
0026C0O 0000 596+DCB1 DC A (*-* LAST DCB TABLE, CONTROL WORD 715 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
0026C2 0000 597+DCB2 DC A (*-% LAST DCB TABLE, DEV DEP WORD 716 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
0026C4 0000 598+DCB3 DC A (*-* LAST DCR TABLE, DEV DEP WORD 717 * * 
0026C6 0000 599+DCBUu DC A (*-* LAST DCB TABLE, DEV DEP WORD 718 PP EPS SSS SSL ESL STS SS SSL SLT SSS SSS SST SST SSS SS SSS SS SSCS CSCS SCSSS TS SSS SS SPS ese + 2 
0026C8 0000 600+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000000 719 BSO EQU 0 
0026CA 0000 601+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 000001 720 BS1 EQU 1 
0026CC 0000 602+DCB7 DC A {*-* LAST DCB TABLE, BYTE COUNT 000002 721 BS2 EQU 2 
0026CE 0000 603+DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 000003 722 BS3 EQU 3 
6044+* 000004 723 BS4 EOU u 
0026D0 605+CSBUF EOU * CYCLE STEAL DATA BUFFER 000005 724 BSS EQU 5 
0026D0 0000 606+CSTL1 D A (*-* CS STATUS WD 0, RESIDUAL ADDRESS 000006 725 BS6 EQU 6 
0026D2 0000 607+CSTL2 DC A (*-* CS STATUS WD 1, RESIDUAL COUNT 000007 726 BS7 EQU 7 
0026D4 0000 608+CSTL3 DC A (*-* CS STATUS WD 2, RETRY CNT WD 1 000008 727 BS8 EQU 8 
0026D6 0000 609+CSTLY DC A (*-* CS STATUS WD 3, RETRY CNT WD 2 000009 728 BSI EQU 9 
0026D8 0000 610+CSTL5 DC A (*-* CS STATUS WD 4, ERROR STATUS WD 1 OOOOOA 729 BS10 EQU 10 
0026DA 0000 611+CSTL6 DC A (*-* CS STATUS WD 5, FRROR STATUS WD 2 00000B 730 BS11 EQU 11 
0026DC 0000 612+CSTL7 DC A (*-* CS STATUS WD 6, LAST DCB ADDRESS 00000C 731 BS12 EQU 12 
O026DE 0000 613+CSTL8 DC A (*-* CS STATUS WD 7, PREVIOUS HD/CYL Q00000D 732 BS13 EQU 13 
0026E0 0000 614+CSTLS DC A (*-* CS STATUS WD 8, CURRENT HD/CYL QOO00E 733 BS14 EQU 14 
0026E2 0000 615+CST10 DC A (#-* CS STATUS WD 9, FLAG/SECTOR OO000F 734 BS15 ee 15 
0026E4 0000 616+CST11 DC A (*-* CS STATUS WD 16, HEAD/CYLINDER 736 PY T7AOODCB 260CT77 
0026EF6 0000 617+CST12 DC A (*-%* CS STATUS WD 11, DIAG BYTES 1, 737 ** (T7AOODCB) 
0026E8 0000 618+CSTI3 DC Rh (*-* CS STATUS WD 12, AND 3 + WRAP "a ohe 738 * 
619+* 739 3 A RC RIC IR IR aa IOI ack aa tok tk atc 72 8/7 7 6 a AO CK 
O0O26EFA 0000 620+$SUBN DC A (*-* LAST SUBROUTINE ADDRESS USED 740 * 
0026EC 00000000 621+$DATA DC 2A (*-* OPTIONAL DATA 741 * DCB TABLES AND DCts 
0O0O26FO 0021 622+$INTL DC x*0021! INTERRUPT LEVEL REQUESTED 742 * 
O026F2 0000 6234+TURTN DC A (*-*) TEST UNIT RETURN ADRS TO MDI 743 Peet SS SSS ESS SS SSS SS SSS SST SST SSS SSS SL SSS SS SSS SSCS SCSSCCSSSCSS TST SCL LS See eT 
0026F4 00 624+$DVID DC x'oor DEVICE ID 744 * 
0OO26F6 19D0 625+SVCAL DC A (DEVADD) ADRS OF DEVICE ADDRESS 745 ***** DIAGNOSTIC DCB HC 
0026F8 0000 626+ DC A (¥-*) IBIS CYLENDFR ADDRESS 746 * 
627+* 002702 2008 747 DGDCB DC "2008" DIAGNOSTIC DCB 
628+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 002704 0000 748 DC } FLAG / PHYSICAL SECTOR # 
629+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS AREA ARE 002706 0000 749 DC A HEAD / CYLINDER#'S 
630+* STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. 002708 0000 750 DC x! 000 NOT USED 
631+%* OO270A 27DC 751 DC A ee RSB ADDRESS 
OO26FA 4020 26B0 7A02 632+T7A02 MVWI X*7A02!,$TUID SET UP TEST UNIT ID 00270cC 0000 752 Dc A CHAINING ADDRESS 
002700 5700 633+ BXS UTA PETURN TO MDI SUPVR O0O270E 0100 753 DC ‘010 BYTE COUNT 
635 COPY OMEQU 002710 0000 754 DC A (#¥)_ DATA ADDRESS 
MIME L ESET SL SSS SSLSS CSS SSS SESS STS SSL SSS SSS STS SST SSS CSS CT SSCS SSCS SS SSS SSS Ss 2 755 * 
637 * * 756 #***** RECALIBRATE DCB ******xx 
638 * EQUATED NAMES FOR SUPPORTED SVC'S * 757 * 
639 * * 002712 0001 758 CLDCB DC x*o001! RECALIBRATE DCB 
640 2k I RIOR IOI IR IORI III IO FIO I I aK dot 002714 00000000000000000 159 DC TA (*-*) 
000000 641 OUT EQU 0 OUT SVC 760 * 
000001 642 OUTIN EQU 1 OUTIN SVC 761 ***** WRITE SECTOR ID ****#*#x* 
000003 4d IDLES EOU 3 IDLE SV@ - INDEPENDENT OF 002722 002D 763 WSDCB DC ‘02p" 
- PENDENT OF CPU TYPE WRITE SECTOR ID CN 
000004 645 CHNGE FOU rm CHANGE LEVEL SVC 002724 0000 764 DC i FLAG / PHYSICAL SECTORS 
000005 646 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 002726 0000 765 Dc A HEAD / CYLINDER#!S 
000006 647 EXIT EQU 6 EXIT SVC 002728 0000 766 DC 000 NOT USED 
000007 648 TERM EQU 7 TERMINATE SVC Q00272A 27DC 767 DC A BSeh) RSB ADDRESS 
000008 649 RESET EQU 8 RESET DEVICE SVC 00272c 0000 768 DC A CHAIN ADDRESS 
OO goOR e234 att FOU 30 SRR CYeL Ss STEAL SVC 003946 oOR0 483 ae #000 ADOE Ge Ce 
\ : DC A ee ADDR OF SECTOR ID DATA 
000008 652 Stcss Fou 11 START CYCLE STEAL STATUS SVC 71 * ( } aos 
00000C 653 PREP FOU 12 PREPARE DEVICE SVC 772 ***** READ SECTOR ID DCB ¥******x 


I7A68 --- SCOPE LOOP P/N=6826993 EC=375222 PAGE OU I7A68 --- SCOPE LOOP P/N=6826993 EC=375222 PAGE OGA 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
002732 201 133 : O57 Ee 8000 BBG aR De 100008 f> ADDRESS TO BE SET BY USER 
Cc 4 RSDCB DC X*201C! READ SECTOR ID CNTL WORD 
002734 0000 775 DC Aah FLAG / PHYSICAL SECTOR# OO2Z7EE 1010 889 PDATA DC X*'1010! WRITE DIAG WORD 1 DATA PATTERNS 
002736 0000 7176 DC X*00008 HEAD / CYLINDER#'S Q027FO 5555 890 DC X'5555! * 
002738 0000 777 DC X*0000! NOT USED QO27F2 AAAA 891 DC X"AAAA® * 
00273A 27DC 778 DC A (RSBA) RSB_ ADDRESS O027F4 FFFF 892 DC X'FFFF! i 
00273C 0000 779 DC A (*-* CHAIN ADDRESS 893 * 
00273E 00048 780 pc xroooker BYTE COUNT FOR READ SECTOR ID oad Ge ee ee ean Ce See ge FOOL I PT Cee TE OT eee ee ee eT re Pee 
002740 26838 781 DC A (SCTID SECTOR ID DATA ADDRES 
782 * ( ) PaERe 896 * SUBROUTINE 
783 ***** SEEK DCB  **%3kKE 897 * 
002742 0000 334 5 898 ‘ its : 
SKDCB DC X*00008 SEEK DCB CONTROL WORD 
002744 0000 7186 DC X'0000" NOT USED 900 * COMPARE READ SECTOR ID DATA TO WRITE SECTOR ID DATA 
002746 0000 7187 DC A(t) HEAD / CYLINDER#'S 907 * 
002748 0000 788 DC X"0006" NOT USED 202 * CALLING SEQUENCE 
OO274A 27DC 789 DC A (RSBA) RSB ADDRESS 903 * 
00274C 0000 790 DC A aaah CHAIN ADDRESS 904 * BAL CMPRW,R6 (NORMAL) 
00274E 0000 791 DC X"0000! NOT USED 205 * 
002750 0000 732 r DC X*'00008 NOT USED Bae ri RETURN 
738 scene CYCLE STEAL STATUS DCB **#**x*** one . BXS (R6,2) - NORMAL 
002752 2000 796 CSDCB DC X¥*2000! CONTROL WORD 910 * 
002754 0000 797 DC Fror NOT USED a4 ae Tee age ee are te Oars Pe eae Ee Coan eR ar nee mage ee 
002756 0000 798 DC Ftgr NOT USED 
002758 0000 799 DC Ftot NOT USED O0OO027F6 4724 0004 913 CMPRW MVWI 4,R7 COMPARE BYTE COUNT 
002754 0000 800 DC Foe NOT USED OO27FA 4324 26B8 914 MVA  S€TID,R3 ADDR OF RD SEC ID DATA 
00275c 0000 801 pc Foe NOT USED OO27FE 4524 27D0 * 915 MVA WRSID,R5 ADDR OF WR SEC ID DATA 
pooteg ens 802 pe kV O0Aa 13 WORDS OF STATUS 003804 &8C0 0002 347 BE {Rey syn”? BCH TF WRITE ID DATA OK 
DC A(CSBUF 
Bou + ( Pe renee ESE Sewn nr 002808 68D2 0000 918 B RO # COMPARE ERROR 
805 ***kxk WRITE DCB Per ee St eo es B54 -SPP StS PTS SPSS ESS SET SS SSP SSS SES SS SSS TESS SL SS STS STS SSS SS ST FSS ELE LS Fr tS 
806 * : 
002762 0028 807 WRDCB DC X'0028" WRITE DATA DCB CNTL WOR 922 * EXECUTE INPUT & OUTPUT COMMANDS 
002764 0000 808 DC A (*-* FLAG / RECORD# B 923 * TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 
002766 0000 809 DC A b*—* HEAD 7 CYLIDNER#'S 924 * EACH OF THESE ENTRIES SET R7 WITH THE ADRS OF ITS PARAMETER 
002768 0000 810 DC A (*=% SCAN / REPEAT COUNT 925 * LIST AND ANY SPECIAL SWITCHES BEFORE BRANCHING TO THE 
00276A 27DC 811 DC A (RSBA) RSB_ ADDRESS 926 * SUPVR CALL. 
00276C 0000 812 DC A ep CHAIN ADDRESS 927 * ° 
00276E 0100 813 DC X"'01008 BYTE COUNT 928 * THIS SUBROUTINE WILL CHECK FOR THE FOLLOWING: 
002770 0000 814 DC A (*-*) WRITE DATA ADDRESS 929 * : 
815 * 930 * 1. LOST INTERRUPTS BY TIMING OUT A COUNTING LOOP 
816 races VERIFY DCB CK OK ee . 2. ERROR INTERRUPTS RECEIVED FROM SUPVR 
002772 0019 818 VRDCB DC x*00198 CONTROL WORD 933: * THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
002774 0000 819 DC A (*-* FLAG / RECORD# 934 * 
002776 0000 820 DC A (*-* HEAD 7 CYLINDER#'S 935 * 1 BAL SRKEW,R6 READ SECTOR ID SKEWED 
002778 0000 821 DC A (*—* SCAN ¢ REPEAT COUNT 936 * z 
OO277A 27DC 822 DC A (RSBA) RSB ADDRESS 937 * 2 BAL SWKEW,R6 WRITE SECTOR ID SKEWED 
00277C 0000 823 DC A (*-* CHAIN ADDRESS 938 * ‘° 
00277E 0000 824 Dc A *-* BYTE COUNT 939 * 3 BAL S$WSEC,R6 WRITE SECTOR ID 
002780 0000 825 DC For NOT USED 940 * - 
826 * 941 * 4 BAL $DIAG,R6 DIAGNOSTIC 
827 ***** READ DCB Hk OK 942 * : 
002782 2018 539 RDDCB DC '2018! ann : 5 BAL XIOCS,R6 CYCLE STEAL STATUS 
Xx READ DCB CONTROL WORD * 
002784 0000 830 DC A (*-* FLAG / RECORD# 945 * 6 BAL $SEEK,R6 SEEK 
002786 0000 831 DC A (*-* HEAD / CYLINDER#'S 946 * ° 
002788 0000 832 DC A (*- * SCAN / REPEAT COUNT 947 * 7 BAL $RECL,R6 RECALIBRATE 
00278A 27DC 833 DC A (RSBA) RSB ADDRESS 948 * ° 
00278c 0000 834 DC A aah CHAIN ADDRESS 949 * 8 BAL $RDID,R6 READ SECTOR ID 
00278E 0100 835 DC X¥"O100! BYTE COUNT 950 * 
002790 0000 836 : DC A (*-*) READ DATA ADDRESS Ze. : 9 BAL SRD, R6 , READ 
838 eet WRITE SECTOR ID SKEWED KKK Sen : 10 BAL SRDVY,R6 READ VERIFY 
002792 002F 840 WKDCB DC X"O02F* CONTROL WORD 955 * 11° BAL SWRT,R6 WRITE 
002794 0000 841 DC A (*-* FLAG / PHYSICAL SECTOR# OO e 
002796 0000 842 pc A *-* HEAD / CYLINDER#'S 957 * 12 BAL SRDIM,RO READ MULTI SECTOR IDS 
002798 0000 843 DC Frot NOT USED 958 * 
00279A 27DcC B44 pc A RSBA) RSB ADDRESS Q 59 RK HK eK HK 3 HK I KK EK eK a a a 2 2 2K KK 2 2 2 i OK 2 i ek fe 2 2c ie i ea a Ko ak ok ok 
00279c 0000 845 DC a feos CHAIN ADDRESS 960 * 
00279E 0004 B46 DC X*o0048 BYTE COUNT 00280C 4020 2A24 2742 961 $SEEK MVA  SKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0027A0 27D0 B47 ; Dc A (WRSID) ADDR OF SECTOR ID DATA 002812 5S07F ges Ps J XIO 
849 **** READ SECTOR ID SKEWED KK 002814 4020 2A24 2712 964 S$RECL MVA CLDCB,IODCB SET UP BLOCK FOR SVC CALL 
oosuer Bal 850 * 00281A 507B 265 . J XIO 
D RKDCB DC X*201D* CONTROL WORD 
0027A4 0000 852 DC A (*-* FLAG / PHYSICAL SECTOR# 00281C 4020 2A24 2732 967 $RDID MVA  RSDCB,IODCB SET UP BLOCK FOR SVC CALL 
002786 0000 853 DC A t*—-* HEAD / CYLINDER#'S 002822 OBBB 968 MVBI X'BB!,R3 SET BUFFER TO B'S 
002718 0000 854 DC Foe NOT USED 002824 4524 26B8 969 MVA  SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 
OO27AA 27DC 855 DC A (RSBA) RSB ADDRESS 002828 4724 0004 970 MVWI 4,R7 SETUP BUFFER LENGTH 
0027AC 0000 856 DC A (*—* CHAIN ADDRESS 00282C 2BAC 971 FFN R3 {B5) INIT READ SECTOR ID BUFFER 
OODTAE 0004 857 DC X*0004' BYTE COUNT 00282E 4020 2740 26B8 972 MVA  SCTID,RSDCB+14 DATA ADDR 
0027B0 2638 958 : DC A (SCTID) SECTOR ID DATA ADDRESS 002834 506E gun . J XIO 
860 **** READ MULTIPLE SECTOR IDS 2K eX 002836 4020 2A24 27B2 975 $RDIM MVA RMDCB,1IODCB SET UP CONTROL BLOCK FOR SVC CALL 
861 * 00283C 4724 0084 976 MVWI 132,R7 SET BUFFER LENGTH 
0027B2 201C 862 RMDCB DC x'201C! CONTROL WORD 002840 4524 27EC 977 MVA 1D06;R5 SET BUFFER ADDRESS 
os7ne ooge at pe RGR) eng cencaoenere 003846 2BAC 379 PFN RB; (RS) CLEAR THE BUFEER 
- CYLINDER#'S 
0027B8 0000 B65 DC «Fr WOT USED 002848 5064 980 J x6 
OO27BA 27DC 866 DC A (RSBA) RSB ADDRESS 981 * 
0027BC 0000 867 DC A tk CHAIN ADDRESS 00284A OBFF 982 $RD MVBI X*FF*,R3 SETRD BUFFER TO ALL F'S 
0O027BE 0084 868 DC xroosuer BYTE COUNT 00284C 6D08 2790 983 MVW RDDCB+14, R5 SET UP READ BUFFER ADRS 
0027C0 27EC 869 DC A (IDOO) DATA AREA ADDRESS 002850 6F08 278E 984 MVW  $RDDCB+12,R7 SET UP BUFFER LENGTH 
870 * 002854 2BAC 985 FFN  R3 &B5) CLEAR READ BUFFER 
871 * CONSTANTS AND DEFINED STORAGE LOCATIONS 002856 4020 2A24 2782 986 SRDS MVA RDD B, LODCB SET UP BLOCK FOR SVC CALL 
0027C2 0000 872 ZEROO DC X"0000! CONSTANT ZERO 00285C 505A 987 J XIO 
0027C4 0001 873 ONE1 DC X¥'0001! CONSTANT ONE 988 * 
0027C6 0000 874 RAY DC ere | WRITE PARAMETER POINTER 00285E 4020 2A24 2772 989 $RDVY MVA  VRDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0027C8 EB6D 875 WDATA DC X"EB6D! WRITE DATA 002864 5056 990 J XIO 
ROGdcE: vaoeE ayo qesceme: -acnnas ; 002866 4020 2A24 2762 392 $WRT MVA  WRDCB,IOD 
GSEC D X ‘ LOGICAL SECTOR # 7 LODCB SET UP CONTROL BLOCK FOR SVC CALL 
0027CE 0000 878 PHYSC DC X*0000! CONVERTED PHYSICAL SEC # 00286C 5052 993 J XIO 
0027D0 0000 879 WRSID DC X*00008 FLAG,SECTOR (WRT SECTOR ID DATA) 224 * 
0027D2 0000 880 DC X'0000' HEAD CYLINDER 00286E 4020 2A24 27A2 995 $RKEW MVA RKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 
0027D4 FF34 881 WSIDT DC X'FF34! WPITh SECTOR ID TEST DATA 002874 OBBB 996 MVBI X'BB',R3 SET BUFFER TO B's 
0027D6 5678 882 DC X'5678! * 002876 4524 26B8 997 MVA  SCTID,R5 SETUP READ SECTOR ID BUFFER ADRS 
0027D8 0000 883 SCTST DC X¥*0000! READ SECTOR ID TEST DATA BUFFER O0287A 4724 0004 998 MVWI 4,R7 SETUP BUFFER LENGTH 
332438 8883 o000000000000 885 sma BE B4900%) rszpuA $9269 4980 2700 2608 1093, «VR SetBSheocoeny © ThARATEABROECTOW 1D SurTEE 
- PFSIDUAL STATUS BLOCK ‘DCB+ DATA ADDR 
0027E8 0000 886 CTRO2 DC x' 6000" COUNTER 002886 5045 1001 J XIo ° 
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1002 * . 002940 OFTIA 1681+ MVBI 26,R7 * THE NUMBER OF MOVES 
002888 4020 2792 1003 $WKEW MVA WKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 002942 2D64 1682+ MVFN §Rd) §R3) MOVE 1 STATUS WORD AND ADJUST 
00288E 4020 27D0 1004 MVA WRSID, WKDCB+14 DATA ADDR 002944 OBFF 1683+ MVBI 55,8 CLEAR CYCLE STATUS BUFFER 
002894 503E 1005 J XIO 002946 4524 1684+ MVA CSBOF,R5 * TO ALL ONES * 
1006 * OO294A OFIA 1685+ MVBI 26,R7 
002896 4020 2722 1007 $WSEC MVA WSDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 00294C 2BAC 1686+ FFN R3 {RS} * 
00289C 4020 27D0 1008 MVA WRSID, WSDCBt14 DATA ADDR 00294R 4020 1687+ MVWI x'6708 ,S1OIN OVERLAY OLD CONDITION CODES 
0028A2 5037 Ue : J XxIO 002954 CB25 eet he MVWZ $ISB,R3 ZFRO OUT OLD ISB VALUE 
0028A4 4020 2702 1011 $DIAG MVA DGDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 002958 4CA1 1690+ TBTR R4Y,ER RESET ANY ERROR BEFORE I/O COMMAND 
OO28AA 5033 1012 J XIO 002°5A 4CA3 1691+XI0O2 TBTR RG,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
1013 * 00295C 4724 1692+ MVA OBLK,R7 SET UP CONTROL BLOCK FOR SUPVR 
O0028AC 6EOD 1014 $WRTO MVW R6,LSTIO SAVE IAR FOR RETRY IF REQUESTED 002960 4CAG 1693+ TBTR RG, SLE) RESET LEVEL FRROR INDICATOR 
0028B0 OBFF 1015 MVBI 255,R3 CLEAR CYCLE STATUS BUFFER 002962 4cC62 1694+ TBTS R4,XT) SET EXPECTED INTR CONTROL BIT 
0028B2 4524 1016 MVA CSBOF,RS5 * TO ALL ONES * 002964 600A 1695+ SVC TART CALL SUPVR FOR I/O COMMAND 
0028B6 OFTE6 1017 MVBI 22,R7 * 1696+* 
0028B8 2BAC 1018, FFN R3 R5) * 002966 4CA7 1697+ TBTR (Ree NT) IS AN INTR EXPECTED 
OO28BA 4524 1019 MVA pcb F,R5 CLEAR DCB BUFFER TO ALL ONES 002968 6ACO 1698+ R6, 2) * NO, RETURN TO USER 
0O028BE OF10 1020 MVBI 16,R7 * 1699+* 
0028CO 2BAC 1021 FFN R3 4R5 * 1700+* THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
0028C2 4020 0708 1022 mvwr | Ox'6é 08°, $IOIN OVERLAY OLD CONDITION CODES 1701+* 
0028C8 CB25 1023 MVWZ $ISB,R ZERO OUT OLD ISB VALUE 00296C 4524 1702+ MVHI O,R5 SET UP WORK REG FOR *LOST INTR! 
0028CC 4CA3 1024 TBTR R oT CLEAR INTERPUPT RECEIVED CNTL BIT 002970 4CA3 1703+XIO8 TBTR (Ra IN) HAS INTERRUPT BEEN RECEIVED 
OO28CE 4CA1 1025 TBTR R4,ER RESET ANY ERROR BEFORE I/0 COMMAND 002972 1239 1704+ JON TocK * YES, CHECK IF ALL WAS SATISFACTORY 
0028D0 4C62 1026 TBTS RY, XI SET EXPECTED INTR CONTROL BIT 002974 6002 1705+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
0028D2 4724 1027 MVA OBLK,R7 SET UP CONTROL BLK FOR SUPR 1706+* SUPVR WILL RETURN HERE 
0028D6 c020 1028 MVB TOMOD+1,R0 GET IDCB FUNC/MODIFIER 002976 6002 1707+ SVC IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
OO0O28DA 402D OOFO 1029 RBTWI X'OOFO!,IOMOD REMOVE FUNCTION FROM *IOMOD! 1708+ SUPVR WILL RETURN HERE 
Q0028E0 3022 1030 SRL 4 ,RO RIGHT JUSTIFY FUNCTION BITS IN RO 002978 7DA1 1709+ AWI 1,R5 ADVANCE TIME OUT COUNT 
0028E2 F005 10 31 CBI 5,R0 IDCB FUNCTION = 5? 00297C 18F9 1710+ INZ XxIo8 BCH IF TIME OUT NOT REACHED 
0028E4 1003 1032 JE SRT 1 YES - ISSUE 'SVC wWRIT1! OO297E 4C61 1711+ TBTS R4,=R) SET ON ERROR CONTROL BIT 
0028E6 6010 1033 SVC WRITO ISSUE WRITE DPC "4X OP 002980 68D2 1712+ B * E 'NO INTERRUPT! 
O0OO28EF8 6802 1034 B X¥IO8—-4 GO WAIT FOR THE INTERRUPT VT TY RK eK KK ok ea ok sak kok doi tok kako kok tok kok 3 FP EB 6 ** 
0028EC 6011 1035 $WRT1 SVC WRIT! ISSUE WRITE DPC '5x* OP 1715+* 
0O0O28EE 6802 1036 7 B XIO8-4 GO WAIT FOR THE INTERRUPT 7 3 SUBROUTINE 
0028F2 4020 2762 1038 $S$DGWR MVA WRDCB,IODCB SET UP CONTROL BLK FOR SVC CALL 1718+* I/O EXECUTE ERROR HANDLING ROUTINE 
0028F8 6802 1039 B XIODG ISSUE START CS DIAG CMD 1719+* 
1040 * 1720+* PURPOSE 
0028FC 4020 2782 1041 $DGRD MVA RDDCB,1IODCB SET UP CONTROL BLK FOR SVC CALL 1721+* 
002902 6F08 1042 MVW RDDCB+12,R7 GET NO. OF BYTES TO CLEAR 1722+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
002906 6D08 1043 MVW RDDCB+14, R5 RDDR OF READ BUFFER 1723+* PROBLEM THAT WAS FOUND WHEN THE I/O COMMAND WAS ISSUED BY THE 
00290A OBFF 1044 MVBI X'FFt,R3 CLEAR TO FfS 1724+%* SUPERVISOR AND IT WAS NOT ACCEPTED. 
00290C 2BAC 1045 FFN  R3, (R5) * 1725+* 
00290E 6802 1046 B XIODG ISSUE START CS DIAG CMD 1726+* CALLING SEQUENCE 
1048 COPY T7AXEQ OOMART7S8 1727+* 
1033 PRINT OFF 172845 SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/0 COMMAND 
T7AX 
EEE eee CE Oe ET ECE Tee ee EE ee eee EO ET Te EE PE rent on TT ee Tree Lee RETURN CONTROL 
1615+* + 
16 16+% SUB- ROUTINE 17 32e) B (R6) * RETURN TO USERS ERROR HANDLER 
1618+* EXECUTE INPUT AND OUTPUT COMMANDS DIRE e nn nee ee eee ae Stee ee meee re eae eee eve a eee eee Se 
1619+* + 
1620+* PURPOSE 1736+* CC O= DEVICE NOT ATTACHED 
1621+%* 1737+* FOR 1= DEVICE BUSY 
1622+* TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 1738+* I/0 2= DEVICE BUSY AFTER RESET 
1623+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 1739+* 3= COMMAND REJECT 
1624+% 1740+ 4= INTERVENTION REQUIRED 
1625+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 1741+* 5= INTERFACE DATA CHECK 
1626+* THE I/O COMMAND. 1742+* 6= CONTROLLER BUSY 
1627+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 1743+* 7J= I/O COMMAND EXCEPTED 
1628+* ISSUED BY THIS SUBROUTINE. 1744+ 
1629+* 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 002984 T70O6E 1745+XIOER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 
1630+* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 002986 336A 1746+ SRL 13,3 POSITION CC CODE TO BITS 13-15 
1631+* 4. RESETS THE INTERRUPT INDICATOR AND CHECKS FOR ANY INTERRUPT 002988 C328 26B2 1747+ MVB R3,SI10IN * PUT IN LOG OUT AREA 
1632+* SINCE THE LAST EXPECTED INTERRUPT. IF AN INTERRUPT IS FOUND, 00298C 68D2 0000 1748+ B (RG) * RETURN TO USER ERROR HANDLER 
1633+* MYSTERY INTERRUPT (MI CONTROL BIT IS SET. VT SO 4 RR KK KK HH HK KH He FR 2 he ec 2 2 ei ae a a ca a ie oak ok ak kK i ak ok tek ke teak gk aktok 1A DRT 6* * 
16 34+* 5. MOVES THE ADDRESS OF THE I/O CONTROL BLOCK IN R7, SET THE 1751+* IL 
1635+* EXPECTED INTERRUPT CONTROL BIT AND ISSUE THE ‘SVC  START'. 1752+* SUR-ROUTINE IL 
16 36+%* 6. WHEN THE SUPVR RETURNS AFTER ISSUING THE I/0 COMMAND, TIMING 1753+* IL 
1637+* STARTS TO DETERMINE A LOST INTERRUPT. 1754+* ERROR INTERRUPT RUNS ON INTERRUPT LEVEL *$INTL*® IL 
1638+* 7. EXCEPT THE INTERRUPT AND GATHER INFORMATION TO DETERMINE IF IT 1755+* IL 
1639+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 1756+* PURPOSE IL 
1640+* 8. CHECK IF THERE WAS A WRONG INTERRUPT LEVEL. 1757+* IL 
1641+* 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETURN. 1758+ THIS ROUTINE WILL BE ENTERED WHEN THE SUPVR DETECTS AN ERROR TL 
1642+ 10. CHECK IF THERE WAS AN ERROR CONDITION, IF NOT RETURN. 1759+* OR THE INTERRUPTING CONDITION CODE DOES NOT AGREE WITH THE IL 
1643+* 11. CHECK TO SEE IF THE EXERCISER IS TO BE TERMINATED. 1760+* EXPECTED CODE. IL 
16444+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 1761+* IL 
1645+* ISSUED BY THIS SUBROUTINE. 1762+* CALLING SEQUENCE IL 
1646+* 13. CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 1763+* IL 
1647+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 1764+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O INTERRUPT IL 
1648+* COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 1765+% IL 
1649+* 1766+* RETURN CONTROL IL 
1650+* CALLING SEQUENCE 1767+* IL 
1651+* 1768+* SVC EXIT RETURN TO USER VIA SUPVR IL 
1652+* THIS ROUTINE HAS THE FOLLOWING ENTRIES: 1769+* IL 
1653+4+* 1770+ *% *% % I RII RO OO i gafia a o mOR dok ik fokoakkokodok dog tok T 7 
16544+* --> BAL X1Io OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 1771+* IL 
1655+* --> BAL XIOo1 MOD PARM PRELOADED IN ' romops 1772+* CC = CONTROLLER END ISB O= ADD STATUS IL 
1656+* --> BAL XIOCS,R6 OR XEQ START CYCLE STEAL STATUS, MOD=F 1773+* FOR = PROGRAM CONTROL INTERRUPT BITS 1= COMD REJECT IL 
1657+* --> BAL XIOCS-4,R6 AUTO CS STATUS {FOLLOWING OTHER XIO 1774+* INTR = EXCEPTION INTERRUPT FOR 2= INCOR LENGTH IL 
1658+* s AND DOES NOT POST INTERRUPT STATUS) 1775+* = DEVICE END INTERRUPT INTR 3= DCB SPEC CK TL 
16594+%* 1776+* = ATTENTION INTFRRUPT 4= STG DATA CK IL 
1660+* RETURN CONTROL 1777+* = ATTENTION / PROGRAM CNTL INTR 5= INV STG ADRS IL 
1661+* 1778+* 6= ATTENTION / EXCEPTION INTR 6= PROTRCT CK IL 
1662+* BXS R6, 2) RETURN TO USER NO ERROR 1779+* 7= ATTENTION / DEVICE END INTR 7= I-FACE DATA IL 
1663+* OR B R6{ * RETURN AND RETRY ON ERROR 1780+* IL 
16 64 + 7 0k I OK IOI III I III IOI IK ki ak kok ake ofc ak ai aie ak ak 002990 7O06E 1781+INTER CPLSR R3 COPY STATUS ANY LEVEL INTO R3 IL 
002912 CBE25 2A26 1666+XIO MVWZ IOMOD,R3 SET MOF OF O FOR CYCLE STEAL OP 002992 336A 1782+ SRL 13,3 POSITION INDICATORS IN R3 IL 
002916 SOOE 1667+ J XIO1 CS I/O'S ARE NOT RETRIED 002994 4424 26AA 1783+ MVA OPTN1, R4 SET OUP BASE ADRS IL 
1668+* 002998 4c28 1784+ TBT (Ra c§) IS CS IN PROGRESS IL 
002918 4020 2A26 000D 1669+XIODG MVWI X'OOOD',IOMOD SET MODIFIER FOR DIAGNOSTIC OPS O0O0299A 1006 1785+ JOFF NTES * NO IL 
00291EB 500A 1670+ J XIO1 GO TO CS OPS 00299C 4Cé6A 1786+ TBTS {ae cr TURN ON CYCLE STEAL INTER ERROR IL 
1671+% 00299E 6FOD 26BE 1787+ MVW 7, DEV SAVE CS ERR ISB VALUE, BITS 0-7 IL 
002920 4CAA 1672+ TBTR (R4,CE RESET CS STATUS INTER ERROR INDICAT. Q02Z9A2 C328 26BF 1788+ MVB = =R3,DEV4+1 * AND THE COND CODE IL 
002922 4C68 1673+ TBTS R4,CS SET 'CYCLE STEAL STATUS IN PROGRESS 002986 5SOOA 1789+ J INTR1 IL 
002924 4020 2A24 2752 1674+XIOCS MVA SDCB, LODCE SET UP CONTROL BLOCK FOR SVC CALL 0029A8 4C24 1790+INTES TBT ae XE) TEST EXPECTED ATTEN / ERROR IND IL 
00292A 4020 2A26 OOOF 1675+ MVWI X'000Ft, TOMOD SET CYCLE STEAL MODIFIER OO29AA 1002 1791+ JOFF NTET BCH IF NOT EXPECTED IL 
002930 4C28 1676+ TBT (ue CS) IS CS IN PROGRESS, ERROR CONDITION OO029AC F304 1792+ CBI 4,R3 IS THIS AN "ATTENTION! INTR IL 
002932 1213 1677+ JON TO2 * YES, BYPASS SAVING I/O ADRS OO29AE 1006 1793+ JE rhtRI1 * YES, BCH TO END INTR SEQUENCE IL 
002934 6EOD 26B6 1678+XIO1 VW R6,LSTIO SAVE fAR FOR RETRY IF REQUESTED 0029B0 4C61 1794+ INTET TBTS (aa ER) SET ERROR ON I/O COMMAND CNTL BIT IL 
002938 4324 26C0 1679+ MVA DCBUF,R3 SET UP TO ADRS TO MOVE DCB TABLE 0029B2 5004 1795+ J nTh1 IL 
00293 6D08 2A24 1680+ MVW IODCB, RS * AND THE FROM ADRS, ALONG WITH 1796+* THE ERROR INTERRUPT USES THE SAME IL 
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1797+* G 19 144% 
17004 SEOs REARS REUEES 00 WES4 ONS 5064065 cae e a chloe kee ee ane 1915 + 4 IR IIR I IORI IK RK IOI aK to KK KEKE EKA KEE EEE 
1800+% IL 002A34 OFO06 1916#$CONC MVBI 6,R7 NUMBER OF BYTE TO CLEAR 
1801+* SOUBROUTINE TL 002A36 OBOO 19T7+ MVBI 0O,R3 * AND THE DATA TO USE 
1802+% IL 002438 4524 26B8 1318+ HVA DEV1,B5 * ALONG WITH THE ADRS TO USE 
+ OKAY INTERRUPT RUNS ON INTERRUPT L ' ' . 
1804+* . a EVE SE erNTe ay 0O2A3E CB25 26AE 1920+ MVWZ Bptn3 ka CLEAR OLD CONTROLS FOR WEW ROUTINE 
1805+* PURPOSE IL 0O2A42 4724 2A2C 1921+ MVA INTBL,R7 SET R7 TO CONTROL BLOCK AND 
1806+* IL 0O2A46 6014 1922+ SVC CICB * CONNECT IT TO THIS DEVICE 
1g0]+% TO CHECK THE INTERRUPT AND CONTINUE THE TEST IL OO2A48 6ADO 0000 de aney BN (R6) * ERROR RETURN TO USER 
+ 
1809+* CALLING SEQUENCE ae OO2ZA4C 8828 26FO 2A24 1925+$CONP MVW $INTL,IODCB PUT IN LEVEL & INTR PARAMETER 
He tL 883482 4425 3882 o7on 18892 4987588 srom ENaEA. Tee COnBosOK e SpE stOnAGe” 
+* SUPERVISOR WILL ENTER HERE IF INTR CC IS AS REQUESTED TL ’ 
1812+* THE ERROR INTERRUPT HANDLER WILL BRANCH TO THIS ROUTINE IL OO2A5C CB25 26B4 1928+ MVWZ S$ISB,R3 * AND CLEAR OLD ISB VALUE 
1813+* AFTER THE SPECIAL PART HAS BEEN COMPLETED AND THE IL 002A60 6E0OD 26B6 1929+ MVW  R6,LS5TIO SET UP ADDRESS THAT STARTED LAST I/0 
1814+ COMMON SECTION IS HANDLED HERE. IL 002A64 600C’ 1930+ SVC PREP * AND CALL ON SUPVR 
1815+% IL 002A66 5601 1931+ BXS (R6, 2) RETURN TO USER 
1816+* RETURN CONTROL IL 19 33408 OOO Oo i KK KG APR 6 ** 
1817+% IL 19 34+* 
181s" SVC EXIT RETURN TO USER VIA SUPVR TL ae SUBROUTINE 
+ TL 
0029B4 I06E toot shear Cate a ne eee eee ee eee ete Tee DISCONNECT THE INTERRUPT CONTROL BLOCK AND LOG ERRORS 
+INTOK CPLSR R COPY STATUS ANY LEVEL INTO R3 IL + 
0029R86 336A 1822+ SRL R3 POSITION INDICATORS IN R3 IL 1939+* PURPOSE 
0029B8 4424 26AA 1823+ MVA OPfN1,R4 SET UP BASE ADRS TL 1940+* 
0029BC 4c63 18244+INTR1 TBTS (R4,If SET INTERRUPT RECEIVED IL 19414 DISCONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND 
0029BE 4C28 1825+ TBT fea CS IS 'CS IN PROGRESS' ON IL 1942+* SET THE "NO GOOD! CONTROL BIT, THEN LOG THE DATA THAT HAS 
0029C0 1204 1826+ JON NTR2 * YES. BCH AROUND UPDATE TL 1943+ BEEN FOUND TO HELP THE OPERATOR DEFINE THE ERROR CONDITION. 
0029C2 C328 26B3 1827+ MVB R3,$I1OIN+t1 SAVE INTERRUPTING CC CODE IL 1944+* 
0029C6 6FOD 26B4 1828+ MVW R7,$1SB SAVE INTR STATUS AND DEV ADRS TL 1945+* CALLING SEQUENCE 
O0O29CA 1829+INTR2 EQU) * IL 1946+* 
1830+* CPCL R5 CURRENT LEVEL COPIED BY DCP IL 194 74+ THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 
0029CA 3521 1831+ SLL 4,R5 POSITION INTR LEVEL AND PUT IL 1948+* 
0029cC 0501 1832+ ABI 1°R5 * IN ' Lt BIT IL 1949+* --> B SERRS SFT 'NG' BIT AND CONVERT DATA TO LOG 
0029CE CD24 26F0 1833+ CW $INTL, R5 IS THIS THE CORRECT INTR LEVEL IL 1950+* --> B $CONX RETURN TO MDI SUPERVISOR TO TEST STS 
0029D2 1002 1834+ JE INTR3 * YES, GO EXIT THIS LEVEL IL 1951+* 
0029D4 4C66 1835+ TBTS (R4,$LE) SET IfTR LEVEL ERROR CONTROL BIT IL 1952+* RETURN CONTROL 
0029D6 4C61 1836+ TBTS (R4,ER SET ERROR ON I/O COMMAND CNTL BIT IL 1953+* 
0029D8 4CA2 1837+INTR3 TBTR (R4,XI WAS INTERRUPT EXPECTED IL 1954+* B TURTN* RETURN TO MDI 
0029DA 1204 1838+ JON nTtkxX * YES, EXIT OFF THIS INTR LEVEL IL 1955+* OR B (R6) * IF THE DEVICE COULD NOT BE CONNECTED 
0029DC 4cC60 1839+ TBTS (R4,MI) * NO, SET MYSTERY INTR CONTROL BIT IL 1956+* 
OO29DE F304 1840+ CBI R3 ATTENTION INTERRUPT? IL EWE TESTS SL SS SSS ELS SSE TESTES TSE SS SS SETS SE SELES ESS SES SESE STFS SLES SSS SS SSS SS 
0029F0 1001 1841+ JE ThtTRx YES IL 002A68 4020 1818 8000 1958+$ERRS MVWI xX'8000',TUSTATUS SET ON 'NO GOOD! STATUS BIT 
0029E2 4CEC 1842+ TBTS Ra NG) ERROR, UNEXPECTED INTERRUPT TT OO2ZA6E 4724 2C38 1959+ MVA HEBLK,R? GET ADRS OF CONTROL BLOCK 
O029E4 6006 1843+INTRX SVC XxIf EXIT HIS LEVEL VIA SUPVR TO PGM IL OO2A72 601A 1960+ SVC HTOE CONVERT HEX TO EBC VIS DCP 
18.0.5 + RIO ARR Roc OIG aI IC IGG dja 3 F EB7 6« OO2A74 4020 188E 4040 1961+ MVWI X*'4040', TUWORK+116 
1847s 905480 4050 1892 4040 49658 MVUT X'4OU0'  TORORKS 120 
+% THIS IS THE CONTINUATION OF EXECUTE I/O AFTER THE INTERRUPT - ’ RKt 
Meroe UBC EEE ED TAD BCEUCRUn Reoe eae PInDS AN INTERRUPT GAS BEEN O03K88 4324 1842 sesh OVA © TOWORK, RB SET UP BUFPER STORAGE 
HES HERE TO CHECK FOR A 5 
1850+# BONY ERROR SONDTTONS 0O2A8C 6B0D 2C30 19664 MVW  -R3, BUF PT 
0029F6 4caAd 18223 XI0CK TBT 4 BOsR ou Orou oe 19ea% MVBI LIhe1 81 
+X R (R4,XE WAS AN FRROR EXPECTED £ ’ 
0029F8 6ACO 0002 1853+ BN R62) * YES, EXIT THIS ROUTINE 002A96 QE08 1969+ MVBI 8,R6 
0029FC 4CA8 1854+ TBTR (R4,CS) WAS AUTO CS IN PROGRESS 002A98 2B24u 19704+MVBUF MVFN (83). (R1) 
QOO29EE 1006 1855+ JOFF IOCV * NO, CONTINUE CHECKING OO2A9A OFOY 1971+ MVBI ck 
0029FO 4C2A 1856+ TBT R4 , CE) ts c§ IN AN ERR CONDITION OO2A9C OA4O 1972+ MVBI X?*40*,R2 
0029F2 1002 1857+ JOFF x10e6 * NO, BCH OO2A9E C258 1973+ MVB  R2 grt + 
$333t £83 0000 1ee8taroco Bors {ROE cs agtae™ S33) BENE 3gt ee, BURP Re 
+ R4,CSA TURN ON CS ST 
OO29FA 5601 1860+ BXS RO, 2) GO TO USER ahaa meee OO2AA4 7921 002C 1976+ AWI «644 R1 
QO59FE 00D teeoe tt abees teoke” SG ure anes Cee OOSRAR 4020 1802 F1FO 1973¢ ee ee 
E + * NO, EXIT THIS 
002200 520 268: 1Bg3t* (enh e B33he 4935 13en 3038 ages yA BaSERU An GADgT 
+ MVB IOIN+1,R5 GET LAST INTR CC 
003A04 F502 1865+ CBI 3.RS.. ee apEe Celgene OOZABC 402C 19C4 0080 1981+ OWL  BIT0080,SUPSTAT 
002A06 1003 1866+ JE xfoco YES 002AC2 4324 26B0 1982+ MVA $TUID,R3 SET UP BUFFER STORAGE 
002A08 F506 1867+ CBI 6,R5 IS THIS CC=6 OO2AC6 6F13 18BA 1983+ BAL TUMSGWTR*,R7 GO TO MESSAGE WRITER 
OO2A0A 68D1 0000 1868+ BNE gRe) * * NO, BCH TO ERROR HANDLER 1984+%* 
OO2A0E C520 26B4 1869+XIOCQ MVB ISB,R5 GET {AST ISB DATA BYTE AND IF cS OO2ZACA 1985+$CONX EU * 
002A12 6A00 2920 1870+ BN XIoc$-4 * AVAILABLE, GO AND GET IT OO2ACA C720 19D0 1986+ MVB DEVADD,R7 GET DEVICE ADDRESS FROM MDI 
002A16 68D2 0000 1871+ B R6) ERROR OO2ACE 6013 1987+ SVC RICB RELEASE INTERRUPT CONTROL BLOCK 
OO2K 14 CB2> 26AE 18724XIOCX nV Z PT 3, R3 CLEAR OUT OPTION 3 CNTL BITS OO2AD0 6812 26F2 1988+ | B TURTN* RETURN TO MDI SUPERVISOR 
+ RETURN TO USER VIA REG 
1e7ats a a g33he 9008 yeggemee™™ Be A088 a le 
+ I/O PARAMETER LIST + GTH = 8 CHAR 
1876+* i OO2AD8 5C5C40C1C2D6D9F3 1992+ DC C'** ABORT! 
002A20 19D0 1877+IOBLK DC A (DEVADD) ADRS OF DEVICE ADRS OO2AEO 0028 1993+ DC A (0040) LINE LENGTH = 40 CHAR 
002A22 2984 1878+ DC A(XIOER) ERROR ROUTINE ADRS OO2AE2 E3EYCSICK4OCIDECID 1994+ DC C'TUID IOIN ISB INST SECT ID DATA CSCC ! 
002A24 0000 18794+IODCB DC A (*~* DCB ADRS OR LEVEL & INTR OO2ZB0A 0028 1995+ DC A (0040) LINE LENGTH = 40 CHAR 
002A26 0000 1880+IOQMOD Dc A (*-* MODIFIER OO2Z2BO0C 4OUOKOLO4O4OFO4ON 19964LINE1 DC c' t 
002A28 0000 1881+ pc A (*-* ADRS OF LAST SVC CALL Q002B34 0028 1997+ DC A (0040) LINE LENGTH = 4O CHAR 
0O0O2A2A 0000 1882+IORSP DC A (*-* SECOND WORD OF LAST IDCB 002B36 C3D5E3D340C4C3C2F 1998+ DC C'CNTL DCB1 DCB2 DCB3 DCB4Y CHAD BYCT ADRS ! 
1eehee NTER 305BG0 O404O4O4O4O4O4OS 3000 LINEZ DC aa ia ta ea 
+ INTERRUPT CONTROL BLOCK FOR I/O COMMANDS 
18854% / 003888 0028 5001+ DC «A (0040) LINE LENGTH = 40 CHAR 
OO02A2C 19D0 18864INTBL DC A (DEVADD) ADRS OF DEVICE ADRS OO2B8A C3E260FO4OC3E2Z60F 2002+ DC C'*cS-0 CS-1 CS-2 CS-3 CS-4 CS-5 CS-6 CS-7 ! 
OO2ZA2E 29B4 1887+ DC A (INTOK INTERRUPT OK RETURN ADRS QOOZBB2 0028 2003+ DC A (0040) LINE LENGTH = 40 CHAR 
002A30 2990 1888+ DC A (INTER INTERRUPT ERROR ADRS OO2BB4 4O4OKOKOKOKOKO4Oe 20044+LINE3 DC c' y 
002A32 0003 1889+INTCC DC X*0003" TFRRUPT CODE EXPECTED OO2BDC 0028 2005+ DC A (0040) LINE LENGTH = 40 CHAR 
18.9 1 42k 3 ORCI ICRI IG Raa a OK 11M AY 76% * OO2ZBDE C3E260F840C3E260F 2006+ DC C'CS-8. CS~9:-CS=A- -€S=B8: CS-C ' 
1892+* 002C06 0028 2007+ DC A (0040) LINE LENGTH = 4O CHAR 
eee SUBROUTINE 002C08 4O4040404 04040404 page tt DC ct t 
+ + 
1895+* CONNECT INTERRUPT CONTROL BLOCK & PREPARE DEVICE 002C30 0000 2010+BUFPT DC A (*-* 
1896+* 002C32 2AD4 2011+DC2PT DC A (BEGrN) 
1897+* PURPOSE 002C34 0101 20124+FIXTU X*O101! 
eco. cogs egeaep °7 Stes StbHae 0 BGu Tate tro: 
+ O CONNECT THE INTERRUPT CONTROL BLOCK TO THIS DEVICE AND . 
1900+* PREPARE ON THE DESIRED INTERRUPT LEVEL AND TO ALLOW THE DEVICE 000080 2015+BITO0080 EQU x*0080' 
1901+* TO INTERRUPT. 2016+* 
1902+* 2017+* DATA CONTROL BLOCK FOR CONVERTING HEX TO EBCDIC 
1903+* CALLING SEQUENCE 2018+* 
1904+* 002C38 003A 2019+HEBLK DC A(58 NUMBER OF BYTES TO CONVERT 
1905+* THIS SUBROUTINE HAS THE FOLLOWING ENTRIES: 002C3A 26P0 2020+ DC A($T as FROM ADRS 
190 9e% > BAL  $CONC,R6 yee ae 5052 COPY TTA20" 1BAPRIB. i 
+k == ONC,R CLEAR DEV DEP STG AND CONNECT I/O BLK A 
1908+* --> BAL C 2023 T7A20 TUIT SO3E 
1909+* i ONEaHe a OMEne PonunvesCORNESE 20 ZY 4 BK RH KK KK HK HK HK KK KKK KK KK KK KK KK KK KKK KK KKK KE KKK KK KKKO GH FEB] 6* * 
1910+* RETURN CONTROL 2025+%* 
iai2s* iB 6 s0o7te at 
+ XS R6,2 RFTURN TO USER VIA REG 6 IF OKA = 
1913+* OR B Res # IF THE DEVICE COULD NOT BE CONNECTED 2028+* READ DEVICE ID 3/21/77 














SCOPE LOOP 
OBJECT TEXT 


COCO cOCoO 
CODO00 COOCO 
NOWNNM HOROKODN 
QANAAQ A|AAANA 
OMNI WF eew 
APON ONO: 
ANSE NODLEDN 
Oon~ ALO: 
=@ONN NOMNO 
NWSE AWLOU 


COOOoCeooooooooo 80000 
COOCCGDOOOCOCOOSoo FO00oO 
NDNNNNDNNNNNN rphNbdh 
AQAQANQAANAAQANANQ AAAQNN 
OOOO DOOODOONN YY SAAHOD 
ONNOCHQNOANVIOCHYS S| hit eo 
ADNNDSWHASHNSWIALSS NONSLLSN 
BAWAWWOCAOC~IHNOGOO NWSol 
=DOODHONONRIONN WOONNG 
NOWSHMWEOSRIWEO OWLOO 
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P/N=6826993 EC=375222 
STMT SOURCE STATEMENT 


PURPOSE 

FUNCTION: LOOP ON READ DEVICE ID. 

: PROGRAM INITIALIZES ATTACHMENT. 

~ READ DEVICE ID. 

° LOOP UNTIL CE VERIFIES SCOPE PICTURE. 
CALLING SEQUENCE 


uO nn PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
NO STATUS PASSED BACK TO MDI 


EXITS NORMAL 
. MDI TERMINATES LOOP. 


EXITS ERROR 
: NONE 


RETURN CONTROL 


ee 


B TURTN* RETURN TO MDI SUPERVISOR 
MK We He 2c she af ae he He he he ae Be he ae Me aK he she ae he she af fe he ae he Bie he fe Of he She Bh he he she Be he Me Be ac he Be Be he ie Sc he Me eae Bh ake ae 2c a fe a 2c 3 af 2c afc Oe ok 
7A20 MVH 7,TURTN SAVE RETURN ADDRESS 

MVWI X*7A20", $TUID SAVE TU ID FOR DISPLAY 

MVA  OpTN1,R4 SET UP POINTER ADRS IN R4 


BAL SCONC, R6 


CLEAR DEV DEP STG AND CONNECT I/0 BL 
DC A (S038) 


ERROR ADRS FOR INVALID PREP 


PEEEE EEE EEE EEE EEE EEE HEHE HEHEHE HH 


503 MVA IOBLK,R/ SETUP FOR READ DEVICE ID 
MVA S03E, 6 SETUP_RETURN ADDRESS IF ERROR 
03D SVC RID READ ID 
O3E B TURTN* RETURN TO MDI SUPERVISOR 
COPY T7A21 18APR78 
7TA21 TUIT S10E 
JOH IEEE GA HGH ET HGHE SO GO EE RIOR EEA REE 48 £406 F EBT 6% # 
TEST UNIT 
RECALIBRATE 3/21/71 
PURPOSE 


FUNCTION: LOOP ON RECAL. 

: PROGRAM INITIALIZES ATTACHMENT. 

. RECALIBRATE. 

° LOOP UNTIL CE VERIFIES SCOPE PICTURE. 
CALLING SEQUENCE 


PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
NO STATUS PASSED BACK TO MDI 


EXITS NORMAL 
MDI TERMINATES LOOP. 


EXITS ERROR 
° NONE 


RETURN CONTROL 


FPR HHH HHH HHH EHR HEHEHE HHH HF 


B TURTN* RETURN TO MDI SUPERVISOR 
SSS SSS SS SS SS SL SSS SS SS SSS St SSS Lt SS SSS SS TSS LPS PLE SSS SSS PLS SLs 2 £2 tS S's tS tS] 
7A21 MVW R7,TUR SAVE RETURN ADDRESS 

MVWI X'7A421", STUID SAVE TU ID FOR DISPLAY 

MVA OPTNI, 4 SET UP POINTER ADRS IN R4 


BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BL 
10£) ERROR ADRS FOR INVALID PREP 


PEPE EE EE EERE EEE PEE EEE EEEHEHEFHE EH HEH 


* 


MVWI X*EOOO', XI08-2 CHANGE TIMEOUT FOR NO-INTERRUPT 
MVWI X*OF7C'.RO DELAY ABOUT 2 SEC 
T10T5 SVC. IDLES 
3cT 710T5,R0 
TS10 MVA  TIOBLK,R7 SETUP IO BLOCK 
SVC RESET ISSUE IO RESET 
MVHI X'OOFF',R1 SETUP TIME OUT CONSTANT FOR 
DLY1 SVC. ZIDLES * DELAY TO ALLOW ‘BUSY AFTER 
JCT  DLY1-R1 * RESET" CONDITION TO EXPIRE 
TBTS (Ra ke) SETUP EXPECTED ERROR 
BAL RECL, R6 RECALIBRATE 
DC A (S108) ERROR-EXIT 
10E B TORTN* RETURN TO MDI 
COPY T7A22 18APR78 
7JA22 TUIT S11E 
WE eK he 2 he ae 2 A a fk a a 2 a i 2h a 2 2K 2 oe 2 2 a 2 he i hc fc he ek a ak 2c he ok ake ae ak ok ok KK kK KK KOG FEB] 6** 
TEST UNIT 
SEEK 3/21/77 
PURPOSE 


FUNCTION: LOOP ON SEEK. 
i PROGRAM INITIALIZES ATTACHMENT. 
. Neer ae AND DO A SIX TRACK SEEK (FORWARD-OUT DIRECTION) 
° DO SIX TRACK SEEK (REVERSE-IN DIRECTION). 
* LOOP UNTIL CE VERIFES SCOPE PICTURE. 
CALLING SEQUENCE 


PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
” NO STATUS PASSED BACK TO MDI 


EXITS NORMAL 
i MDI TERMINATES LOOP. 


EXITS ERROR 


eee re ee ee me ome ee ee ree ne ree ree ee ees eee ee ee a ee ee ee ee ee ee ee ee ee ee ee ee ee Solel el eleleoleleoleolelelelelelelel ole e)]oleleloleloleleleolololelololelalelolelololelololcelololelolololelolelelolololeololelolololelolololo 


NNNNNNNNNNNNNNNNNDNNNNNNNNNDNNNNNDNNNNNNNNNNNNDNNNNNNNNNNNDNNNNNNNNNNNDNNNNDNNNNNNDNNNNNNNNNNNNNNNNNNNDNNNNNNNNNNNNNNN 
SEES SW WWWWWWWWWNDDNDNNDDID an ad ced ed od eh ted OOOO OOOO COU WOW YOOD DOH DODO WOODDO DONNA INNANAAANAAMIANMNNONN NUE SES ESS SS SWWWWWWoWWWn 
FWY BOM ONDE WN OU ONDE WA) et OO SIO UTE WD) et OW OSI ULE WIN) ot QW ODN EWN OVW ONDA UTE WIN) BQ OD WIOUIE WN BOW ONE WN) OU ON ANE UIN @OO DANE WN OU OWNINMNIE WN Ow 


HEHEHE EEEHEEEE HEHEHE EEE HHS 
HEHEHE HHRHHHEH HHHHHHHHHHEHES WD 


—os 
. 
i 


DOOVVTOOTOSCSOO COO CSO SCOCOCOCOSOCOCCOOCOOCOCOO OCOCOoO 
DOOD OOSOOSCOOSOCOSOOCSSSCOOOSOSOOSSSOSSSCCSOOSSCOoeo COCSoO 
DODDNNINNNNNNNDDNNDNDNDNNNDNNNMNNNNDLNNDNNNDDHNN  NNNDL 
DOOVY DODO TNNNAIANNIANAINANQANQAANQAANAAAQAQAAAARQAAQ AANAN 
attend MPOCOCOOAMWDWYNMMMEO DOO OOUONQQNNNANWWOUWD SYP rrwo 
ODNENONY SENOCHOFHESHONOCHINYPONEOMHNEFHAEOPONEO tyr HON 
NEMS KnSSNS ME OHSS SEamSNESmENNDSWNESEHSELSEWHNE NOKDLSEN 
DANONOIHADONONVHIAGGONNONOGNGHAOSCASCYONWMSO YUhfo*! 
ANNOY @OAN ONO saOQ0NDNE 0 AUTO 2@OOMONONNUNMON =-8OhheG 
NO]@2DWEOFPON=ADWEOOONOCUOCNAaAOWSHMWEDOESOONMWE DWwLloU 


CDOCOCOCCOSCOSCSDSCOOCOOCOOOSOSDO COCOCO 
COCTCOSCOSCSCOSCOSCOSOSOSOOSOOSSO COCCO 
NNDDWNNWNNNNNNNNNNNNNNNNNN hho 
wlelelelelelelelelelelelelulvlelelel-lelelulelelo—clololol—) 
SAND OOUUNMNNNNE SERRE EWWWWW dd 
RPORVIAPEMDOPORNEOWONFPHNEOPRONEO WRaACQ 
mE NS EEN mE NSDHNSEHRSESEESOWNHNLSE NONSSN 
DANY ONSGOONONYHINVOMOYOHNMOSS UFO 
OF DONDNNNUIOZBODNONOCNNUWOHION BONNO 
N=@FWORCQWON@FUWEHWEXDEFOCOHWE FWLOU 


SCOPE LOOP 
OBJECT TEXT 


26F2 
26B0 7A22 
26AA 
2A34 
OF7TC 
296E E000 
2A20 
OOFF 
2814 
296E FFOO 
2742 0000 
2746 0406 
280C 
2746 0400 
280C 
26F2 
26F2 
26B0 7A23 
26AA 
2A34 
OF7TC 
296E E000 
2A20 
OOFF 
2814 
2742 0000 
2746 0567 
296E E000 
280C 





P/N=6826993 


STMT SOURCE STATEMENT 
5+% . NONE 
+ 
+* RETURN CONTROL 
+ 
+* B TURTN* 
+% 
+T7A22 MVW TURTN 
+ MVWI X'7A22* $TUID 
+ MVA OPTNA. RG 
+ BAL $CONC,R6 
a DC A(S11£) 
+ 
MVWI X'OF7C',RO 
TBTR (Rd B4g) 
TT711 KV AT X°E600! , x108 2 
SVC. RESET’ 
MHVHI X'OOFF',R1 
Dye oe OBEYS RI 
TBTS (Ra KE) 
BAL RECL, R6 
Cc A (STE) 
TBTR tl 4, ER 
4 ae ee 
J PS EE 
TS11. TBTR (Rd B48) 
JON T7411 
HVWI X'FFOO',XI08-2 
yey xtG806!  onpeB es 
+ 
TBTS (Ra XE) 
BAL SEEK , R6 
DC A(S11E 
TBTR ( mn ER} 
1988 (8a, Boe) 
J 116 
TSS11 KV WI X10400', SKDCB+4 
BAL depen be 
DC A(S11E 
TBTR { 4, ER 
eA 
S11E B oheae 
COPY T7A23 
T7A23 TUIT S15E 
ME FE He Hk We 3k a HK ie ae i OK KK OK 
& 
* TEST UNIT 
* READ SECTOR ID 
* PURPOSE 
FUNCTION: 
: PROGRAM 


i 


7A23 


HERE EE EE EE EE EEE EEE EHE HEHEHE HEHEHE HEHEHE HEHE HHH 
ae % 4% 


* 


DLY3 


TS15F 


MINNA NS SESS SESRWWWWWWWWWWHDDDNNDNDDDD ad ed ed aed at ed ed od dd OOOO DOO OO NOM WOUWOODOUO DODD ODODODOYWI YIN SSID AAHAAAAANAHANNIMNINNONN NINES EE EE 
WO SANE WN td OW OO SID OIE WIN OW DIONNE WN tO O00 SION O01 EWI et OW ONION UIE WIN BBO ODN OUIE WN) BOOM YN EWN = OW DNIDUIEWN AOU OUND WN sO DONA EWN tt OUW ONAN EWN BOO O~IDN 


NNNNNDNNNNDNDNNNDNNNNNNNNN NPNNNDNNNNNNNNDNNDNDNNNNNNNDPNDNNNNNDNNDNNNDNNNN DNDN NNDNN NNN DNNNNNNNNNNNDNDNNNNNNDNNNNNNMNNNNNNDNDNA 
NDNINNNNNNNNNNNNNNNNNNNNNNNNNNNN NNN NNNMNDNDNNNNDDN DDN NDIDRIDNIDIDIDIDORY ead ced cad ceed eet ced ced ed eed ee we ek ce ee ce ee ee ce me ee mee ee ee cee ee cee eh ae ce coe mek cee od eed md ceed cre wed cee eed eed cee ed we end ed cea aed re mcd ed esd eed 


T15T5 


ps 
TT 715 


B 


MVW 


EC=375222 











f 
o 
_ 

2 


ee 
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RETURN TO MDI SUPERVISOR 


eM HK Me He Ke Re Re ae 2 a ae ea oe ee ee ee ee hee Me Me he Me Me He ee ee Ke a a EEK EEK SE KEKE ESS KH GH 


SAVE RETURN ADDRESS 

SAVE TU ID FOR DISPLAY 

SET UP POINTER ADRS IN R4 

CLEAR DEV DEP STG AND CONNECT I/0 BL 
ERROR ADRS FOR INVALID PREP 


DELAY ABOUT 2 SEC 


ROR BIT 
Er OCE FOR NO-INTERRUPT 


T 
ME OUT CONSTANT FOR 
TO ALLOW ‘BUSY AFTER 
RESET' CONDITION TO EXPIRE 


ERROR-EXIT 
To ERROR? 


SET ERROR INDICATION 
EXIT 


RECAL ERROR? 

YES-RETRY 

CHANGE TIMEOUT FOR NO-INTERROPT 
LOAD SEEK CNTL WD IN DCB 

LOAD HEAD/CYL# IN DCB 

SET EXPECTED ERROR 

SEEK TO CYL# 6 WITH HEAD 1 SEL 
ERROR-EXIT 

ANY ERROR? 


NO 
SET ERROR INDICATION 
EXIT 


REVERSE peo ganan SIX TRACKS 

SET EXPECTED ER 

SEEK BACK TO CYLe 8 WITH HEAD 1 SEL 
ERROR-EXIT 

ANY ERROR? 


NO 

SET ERROR INDICATION 
PETURN TO MDI 
18APR78 


BE MK HM He A a ae a Mee Me ee fe Be He ee he a He ae eK a aK aK a KK eK KKKOGP ERT 6% & 


3/21/77 


LOOP ON READ SECTOR ID. 
INITIALIZES ATTACHMENT. 
RECALIBRATE AND SEEK TO CE TRACK 
READ SECTOR ID Aer 0167 

LOOP UNTIL CE V 

CALLING SEQUENCE 


bie PASSES STATUS OCF ALL LINES IN FOLLOWING FORMAT: 


LOGICAL SECTOR- 01,HEAD~-1). 


RIFES SCOPE PICTURE. 


O STATUS PASSED BACK TO MDI 


EXITS NORMAL 
MDI TERMINATES LOOP. 


EXITS ERROR 
. NONE 


RETURN CONTROL 


TURTN* 


KTAgate $TUID 
RG 


v . 


6 
fy 


PHRO >< 
a 
S10) ama 


jee) 
— 


,SKDCB 
7 SKDCE+4 


XIO8-2 
6 


PUI ONMNO WhtyUlkipes WN 
Dre CtAIO £ Wt 


VNR) @D @ eH ht wbIO ow. = 

PU ESFOOCUS BASU EHMOUNWHMESUIMO .~O = 

Or mthtO-s “Orr UR al} eee Hoe Now 
= 


Pam, Ot 9 an, OS OS Un Fen >! Ben © Ht Og SH Oe HH OS 


RETURN TO MDI SUPERVISOR 


ato8 HU ET uae ee eee eee ee rene 


SAVE RETURN ADDRESS 

SAVE TU ID FOR DISPLAY 

SET UP POINTER ADRS IN R4 

CLEAR DEV DEP STG AND CONNECT I/O BL 
ERROR ADRS FOR INVALID PREP 


DELAY ABOUT 2 SEC 


* 


RESET ERROR INDICATION 

CHANGE TIMEOUT FOR NO-INTERRUPT 
SETUP IO BLOCK 

ISSUE IO RESET 

SETUP TIMEOUT CONSTANT FOR 

* DELAY TO ALLOW ‘BUSY AFTER 
* RESET' CONDITION TO EXPIRE 
SET EXPECTED ERROR 
RECALIBRATE 

ERROR-EXIT 

ANY ERROR? 


NO 

SET ERROR INDICATION 

EXIT 

LOAD SEEK DCB CONTROL WORD 

SEEK TO CE CYLIN WITH HEAD 1 SEL 
SET EXPECTED ERROR 

pe TIMEOUT FOR NO-INTERRUPT 


ERROR 
roe ERROR? 


€ 


I7A68 --- SCOPE LOOP P/N=6826993 EC=375222 PAGE 08 I7A68 --- SCOPE LOOP P/N=6826993 EC=375222 PAGE O8A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
00O2D7C 4C50 2260 TBTS (R4,B48 SE 2376+* 
383345 8945 238) asis 3 , ia aintcaseon th. Sifgte Batons corzay 
Cc TS TBTR (R4G,B48 ERROR INDICATION O 
002D82 12DB 2263 JON ARa4 YES - GO RECALL BRATE FILE 2319+* B TURTN* RETURN TO MDI SUPERVISOR 
002D84 4020 296F FFOO 2264 MVWI X'FFOO',xI08-2 CHANGE TIMEOUT FOR NO-INTERRUPT 2380+* 
O0O2D8A 4020 2734 0009 2265 MVWL X'0009", RSDCB+2 LOAD PHYSC ID OF 9 LGSEC 1/HEAD 1) 2381 ERK RK KK HK HR HK HK HK KK KK KK I KK KK KK KK KK 2 2 eK KK Ko Ki 2 ic i a 2 kK ok ok ak ok 
002090 4020 2736 0567 2266 MVWI X*0567"'.RSDCBE4 LOAD HEAD/CYL# IN READ SECTOR ID DCB OOZE2E 6F0D 26F2 2382+T7A25 MVW R7,TURTN SAVE RETURN ADDRESS 
002096 4Céu 5567 TBTS (RG XE SET EXPECTED ERROR 002F32 4020 26B0 7A25 2383+ MVWI X*7A25' $TUID SAVE TU ID FOR DISPLAY 
002D98 6EO03 281C 5568 BAL RDID, R6 READ SECT ID RT LGSEC 1 002F38 4424 26AA 2384+ MVA  OPTN1,RG SET UP POINTER ADRS IN R4 
O002D9C DAG 5569 DC A (S158) FPRROR EXIT 002E3C 6803 2A34 2395+ BAL  $CONC,R6 CLEAR DEV DEP STG AND CONNECT 1/0 BL 
Set a45 eou8 27D0 340 aes yD eaauus RSID SAVE SECTOR ID FOR WRITE SECTOR TU OO2E40 2EBC ae DC A (S188) ERROR ADRS FOR INVALID PREP 
R RETURN TO MDI 
$593 COPY TTAD4 TBAPRTS D 002E42 4024 OFTC 2388 MVWI X'OFT7C',RO DELAY ABOUT 2 SEC 
2270 TTA24 TUIT SI6E OO2E46 6003 2389 T18T5 SVC IDLES * 
27542 ICO OC IOI CIGIG IO II gm RK oak iaacioieck 06 FEB 64« QOO2E48 B8FE 2390 JCT T18T5,R0 * 
2276+* OO2ZE4A 4&C90 2391 TBTR (R4,B48) RESET ERROR INDICATOR 
559774 TEST UNIT OO2F4C 4020 296EF E000 2392 T7718 MVWI X*'E600', xI08-2 CHANGE TIMEOUT FOR NO-INTERRUPT 
2218++ pyeeee eogere ee ear BUR eee peeve 1o ghoee 
+% WRITE SECTOR ID 0 
2280+* erat 002E58 4124 OOFF 2395 MVWI X*OOFF',R1 SETUP TIMEOUT CONSTANT FOR 
3281+* PURPOSE 002E5C 6003 2396 DLY6 SVC  IDLES * DELAY TO ALLOW "BUSY AFTER 
2282+% O02EG0 ECEE 5394 TETS (ROCKED SET EXPECTED ERROR PE 
+* FUNCTION: LOOP ON WRITE SECTO : R 
Beare ete haie Q03562 §E03 2014 3393 BAL HEEL he RECALI BEATE 
285+% - PROGRAM INITIALIZES ATTAC : 
55Re4 * *  -RECARTBRAGE LAD GEEK GO Ge oeLeK. 002E68 4CA1 2401 TBTR a ER INTERRUPT ERROR? 
ae % Teor uehie CE VEDI EVES cboee oroeGce ee O05beC  4C5O 5403 TBTS ees SET ERROR INDICATOR 
2289+% ane ORE 3028 us 000 348% ster uur 328800" ,skoce BE cer 
290+* CALLING SEQUENCE ’ K DCB CONTROL WORD 
229 1+% : OOsETe 4cen - 1° Oe? S409 TBTS (ROSE) SET EXPECTED ERROR 8 SEEK DCB 
+ PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING : 
559544 : NO STATUS PASSED BACK TO MD? ne AOREES OO2E7E 4020 296E E000 2408 MVWT ¥*EOO0+ .xT08-2 CHANGE TIMEOUT FOR NO-INTERRUPT 
5 5auee : 0O2F84 6£E03 280C 2409 BAL $SEEK,R6 SEEK TO CE CYLINDER, HD 1 SELECTED 
g2gsts Bits NoRwaL bo3eeR ACR aig BS AAG ER FUROR GST ERROR? 
+ i MDI TERMINATES LOOP. 2 
55074 : OOZE8C 1002 2412 JOFF AS NO 
55984 x EXITS ERROR OO2E8E 4C50 2413 TBTS gpd B48) SET ERROR INDICATOR 
55994 : NONE 002E90 5015 2414 J 8f EXIT 
53004* 002E92 4c90 2415 TS18 TBTR (Ed B48) ANY ERROR? 
2301+* RETURN CONTROL 0O02E94 12DB 2416 JON T718 YES-RECAL 
2302+% OOSE9e 4090 3764 0000 s418 MVWI O.WRDCBYD TOAD FLAG 0. RECORD 0 IN GRyTE. 
5304+% BARN BD, SUPERVISOR OO2EAD 4020 2766 0567 2419 MVWI xf0567', WRDCB+4 LOAD HEAD 1, CYL 359 IN WRITE DCB 
230542 OGIO GIOIA IGOR IG a ka io a i ko iok ak OO2ZEA8 4020 276E 0100 2420 MVWI X'0100',WRDCB+t12 BYTE COUNT 
O0O2DA8 6FOD 26F2 2306+T7A24 MVW R7,TURTN SAVE RETURN ADDRESS OOZEAE 4020 2770 2ECO 2421 MVA_ DATA18,WRDCB+14 DATA ADDRESS 
OO2DAC 4020 26B0 7A24 2307+ MVWI X'7A24" $TUID SAVF TU ID FOR DISPLAY OO2ZEB4 4C64 2422 TBTS {Re XE SET EXPECTED ERROR 
O0O2DB2 4424 26AA 2308+ MVA  OPTN1,R4G SET UP POINTER ADRS IN R4 OO2EB6 6E03 2866 2423 BAL WRT, R WRITE DATA 
002DB6 6E03 2A34 2309+ BAL $CONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BL OO2EBA 2EBC 2424 DC A (S185) ERROR 
OO2DBA 2E2A 2310+ DC (S168) ERROR ADRS FOR INVALID PREP OO2ZEBC 6812 26F2 2425 S18E  B TORT N* RETURN TO MDI 
+ 
002DBC 4024 OFTC 5312 MVWI X*OFTC!,RO DELAY ABOUT 2 SEC OO2ECO AAAAAAAAAAAAAAAAA 2427 DATA18 DC 128X*AAAA‘ WRITE BUFFER 
002DC0 6003 2313 T16T5 SVC IDLES Es 2428 * 
002DC2 BS8FE 2314 JCT 116T5,R0 x 2430 COPY T/7A26 T8APRI8 
002DC4 4Cc90 2315 TBTR ged B48) RESET ERROR INDICATION 2431 T7A26 TUIT SITE 
anette 4930 Snob E000 2318 TT716 MVWI "£000" , xT08-2 CHANGE TIMEOUT FOR NO-INTERRUPT Se ee Eee Lo eee aT Ce eee TT ene TOO RET Oee 
MVA  IOBLK,R SETUP IO BLOCK * 
002DD0 6008 2318 SVC RESET’ ISSUE IO RESET 2434+* TEST UNIT 
002DD2 4124 OOFF 2319 MVWI X'OOFF!,R1 SETUP TIMEOUT CONSTANT FOR 2435+* 
002DD6 6003 2320 DLY4 SVC IDLES * DELAY TO ALLOW 'BUSY AFTER 2436+* READ DATA 3/24/71 
002DD8 BOFE 2321 JCT DLY4G,R1 * RESET" CONDITION TO EXPIRE 2437+* 
OO2DDA 4C64 2322 TBTS Ra KE) SET EXPECTED ERROR 2438+* PURPOSE 
002DDC 6E03 2814 2323 BAL RECL, R6 RECALIBRATE 2439+4* 
OO2DEO 2E2A 2324 DC A(S16E ERROR-EXIT 2440+* FUNCTION: LOOP ON READ DATA. 
OO2DE2 4CA1 2325 TBTR 4, ER INTERRUPT ERROR? 2441+* : 
003DEG 1002 5356 JOFF 916° NO 24H424+% - PROGRAM INITIALIZES ATTACHMENT. 
0O0O2DE6 4C50 2327 TBTS (Ra B48) SET EPROR INDICATION 24434% -  RECALIBRATE AND SEEK TO CE TRACK. 
O002DE8 5020 3328 5 16£ EXIT 24 444% - READ DATA (CYL- 359, LOGICAL SECTOR 1, HEAD 1). 
OO2DEA 4020 2742 0000 2329 S16F MVWI X'0000',SKDCB LOAD SEEK DCB CONTROL WORD 2445+% - LOOP UNTIL CE VERIFLES SCOPE PICTURE. 
0OO2DFO 4020 2746 0567 2330 MVWI X'0567!,SKDCBt4 SEEK TO CE CYL WITH HEAD 1 SELECTED 24U6+* 
OO2DF6 4020 296E E000 2331 MVWI X'EOOO', XI08-2 CHANGE TIMEOUT FOR NO-INTEPRUPT 244 7+* CALLING SEQUENCE 
OO2DFC 4Cé64 2332 TBTS (Ra XE) SET EXPECTED ERROR 244844 
O02DFR 6E03 280C 5333 BAL SEEK. RE SEEK 2449+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
09220 2 2E 2A 2334 De A(sie&) PRROR-EXIT Z450+% : NO STATUS PASSED BACK TO MDI 
INTERRUPT E ? ° 
902806 1002 2336 JOFP 1516 BOE Rc nce puagee | PAPE AGREN so secede 
2 TBTS (R4,B4B SET ERROR INDICATION ° - 
OO2EOA 5O00F 2338 J Stee EXIT 2054+* “ 
O02B0C 4cC90 2339 TS16 TBTR {RY B4B) ANY ERROR? 2455+* EXITS ERROR 
GOZEOe GBR ooce rroo 6 33K8 seer. Genrer tigeee aa busgee NOME 
XI08- CHANGE TIMEOUT FOR NO-INTERRUPT 
002E16 4020 2724 0009 2342 MVWI X*'0009' | WSDCBt2 LOAD PHYSC# 9 FOR LGSEC 1, HEAD 1 2459+* RETURN CONTROL 
002E1C 4020 2726 0567 2343 MVWI X'0567',WSDCBt4 LOAD HEAD/CYL# IN WRITE SECT ID DCB 2459+* 
002E22 4cé64 2344 TBTS Ra XE) SET EXPECTED ERROR 2460+* B TURTN* RETURN TO MDI SUPERVISOR 
002E24 6E£03 2896 2345 BAL WSEC, R6 WRITE SECTOR ID 2461+* 
002F28 2E2A 5346 DC A (5166) ERROR 2.0 6 2 IO OO IO OR GOK IO IG I IORI IO aR Ia ia kaka ak kakoiat ik 
O02E2A 6812 26F2 2347 SI16E B TURTN# RETURN TO MDI OO2FCO 6FOD 26F2 2463+T7A26 MVN R7,TURTN SAVE RETURN ADDRESS 
5349 COPY TT7A25 TBAPRIB 002FC4 4020 26B0 7A26 2464+ MVWI X'7A26", $TUID SAVE TU ID FOR DISPLAY 
5350 T7A25 TUIT $18E OO2FCA 4424 26AA 2465+ MVA 7 RG SET UP POINTER ADRS IN R4 
2.351 IO OGIO IG OO Io oiKdaleiiok tack 6 F EB 7 64 # OO2FCE 6EF03 2A34 2466+ BAL SCONC, R6 CLEAR DEV DEP STG AND CONNECT I/O BL 
2352+4 beads OO2FD2 3048 2467+ DC A (S178) ERROR ADRS FOR INVALID PREP 
5354 OO2FD4 4024 OFTC 2469 MVWI X*OF7C',RO DELAY ABOUT 2 SEC 
2355+* WRITE DATA 3/24/77 OO2FD8 6003 2470 T17T5 SVC IDLE5 * 
3356+* QOO2FDA B8FE 2471 JCT T17T5,R0O * 
5357+ PURPOSE OO2FDC 4C90 2472 TBTR (R4,B48) RESET ERROR INDICATOR 
53584% OO2FDE 4020 296F E000 2473 TT717 MVWI X'E600', xI08-2 CHANGE TIMEOUT FOR NO-INTERRUPT 
23594+* FUNCTION: LOOP ON WRITE DATA. OO2FE4 4724 2A20 2474 MVA TOBLK, R7? SETUP IO BLOCK 
2360+* : OO2FE8 6008 2475 SVC. —-RESET ISSUE IO RESET 
23614+* > ~=s PROGRAM INITIALIZES ATTACHMENT. OO2FFA 4124 OOFF 2476 MVWI X'OOFF',R1 SETUP TIMEOUT CONSTANT FOR 
2362+ g RECALIBRATE AND SEEK TO CE TRACK. QOO2FEE 6003 2477 DLYS svc IDLE5 * DELAY TO ALLOW 'BUSY AFTER 
2363+* - WRITE DATA (AAA) — (CYL-359) LOGICAL SECTOR 1, HEAD 0). O02FFO BOFE 2478 JCT. DLYS/RI Sm RESET( CONDITION TO EXPIRE 
23644+* ~. LOOP UNTIL CE VERIFIES SCOPE PICTURE. OO2FF2 4C64 2479 TBTS (R ke) SET EXPECTED ERROR 
2365+* OO2FF4 6803 2814 2480 BAL RECL, R6 RECALIBRATE 
2366+* CALLING SEQUENCE OO2FF8 304EF 2481 DC A(S17£ ERROR-EXIT 
53674 OO2FFA 4CA1 2482 TBTR | 4, ER INTERRUPT ERROR? 
2368+* PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: OOZFRC 1002 z483 JOFF $17f NO 
53694 : NO STATUS PASSED BACK TO MDI OO2FFE 4C50 2484 TBTS gra B48) SET ERROR INDICATOR 
53704% : 003000 5026 2485 J 17£ EXIT 
33714% EXITS NORMAL 003002 4020 2742 0000 2486 S17F MVWI X*0000',SKDCB LOAD SEEK DCB CONTROL WORD 
2372+* : MDI TERMINATES LOOP. 003008 4020 2746 0567 2487 MVWI X'0567",SKDCB+t4 LOAD HEAD 1, CYL 359 PARAMS IN DC3 
2373+* a 00300R 4cCé64 2488 TBTS gra XE) SET EXPECTED ERROR 
23744+* EXITS ERROR 003010 4020 296E E000 2489 MVWI "£600", xI08-2 CHANGE TIMEOUT FOR NO-INTERRUPT 
43754 : NONE 003016 6803 280C 2490 BAL $SEEK,R6 SEEK TO CE CYLINDER, HD 1 SELECTED 














I7A68 --- SCOPE LOOP P/N=6826993 EC=375222 © PAGE 09 T7A68 ~-- SCOPE LOOP P/N=6826993 EC=375222 PAGE O9A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 CROSS~REFERENCE LISTING COPYRIGHT IBM. CORP 1976 
00301A 3048 2491 Dc SI7E ERROR-EXIT DECLARED NAME ATTRIBUTES AND REFERENCES 
EEE Te 2434 jOre (i, wee io ee 1916. $CONC ADDRESS. HEX LOCATION (00Q02A34) IN CSECT(I7A68 ) LENGTH (2) 
AO Bj Oo eB ae ate oee (eugoue oe 622 $INTL ADDRESS. HEX LOCATION (000026F0) IN éseer (T7A68 ) LENGTH (2) 
003022 5015 2495 J 17 EXIT 
003036 1308 Sugg gon S747 YES-PECAL, 587 $IOIN ADDRESS. HEX LOCATION (00002652) IN CSECT(I7A68 ) LENGTH(2) 
opa028 4620 gasp ro = 2438 BvuE tERGo, ;groa-2 © CHANG, HIuzOUE_ POR, NQ-TETSESUET soa tsp '98bnadS ant’ tocatou(oddeseau) Eu CoECT(T7AG8 —) LENGTH (2 
003034 4020 2786 0567 2500 MvWI xX '0567',RDDCB+4 LOAD HEAD 1, CYL 359 IN RD DCB 1023 1688 18 1 1928 
00303A 4020 278EF 0100 2501 MVWI X*'0100',RDDCB+12 BYTE COUNT 572 $LE ABSOLUTE. HEX VALUE (00000026) 
SOeRhe: BOGE ne 220% TETs DATEL) /RDPC EAS SET EXPECTED ERROR 982 $RD ADDRESS. HEX LOCATION (0000284A) IN CSECT(I7A68 ) LENGTH (2) 
o304e 304uR ~ 5208 Bee A StTe) ERROR 967 $RDID *RDDRESS. HEX LOCATION (0000281C) IN CSECT(I7A68 ) LENGTH(6) 
er Orn eames tt gees ee ackeamora 964 $RECL -aDDRESS. HEY LOCATION (00002814) IN CSECT(Z7A68 ) LENGTH (6) 
OOR Nae: “NOON OOO RD Suge: “pegatge te ere pause shies 961 $SEEK “ADDRESS. HEX LOCATION (0000280C) | In CSECT(I7A68 ) LENGTH (6) 
2511 COPY T7A27 18APR78 2187) 2189 = =—2256 2333, 2409) 2490 
5512 TTA27 TUIT S19E 5 86 $TUID ADDRESS. HEX LOCATION (000026B0) IN CSECT(T7AGB |) LENGTH (2) 
25 13.4 3 ORR IO TO Og aa iok gok gok te 06 F EBT 6 * 632 1982 2020 2055 2100 $3 2230 2307 2383 
32 qes% TEST UNIT 992 SWRT “ADDRESS. HEX LOCATION (00002866) IN CSECT(I7A68 ) LENGTH (6) 
5215s READ CYCLE STEAL STATUS 3/15/77 1035 SWRT1 * ADDRESS. HEX LOCATION(QOOO28EC) IN CSECT (I7A68 ) LENGTH (2) 
Beic.  -panbakE 1007 $WSEC "ADDRESS. HEX LOCATION (00002896) IN CSECT(I7A68 ) LENGTH(6) 
5259 te FUNCTION: LOOP ON READ CYCLE STEAL STATUS 102 @DCADD1 2a DRESS. HEX LOCATION (000019B8) IN CSECT (I7A68 ) LENGTH (1) 
ee ve PROGRAM INITIALIZES ATTACHMENT. 103 @DCADD2 "ADDRESS. HEX LOCATION(QOOO19BA) IN CSECT(I7A68 ) LENGTH (1) 
2535+8 TOOP GNTIL CE VERIFIES SCOPE PICTURE. 44 ieee eyes HER VALUE (00000400) ase. way - HSS 
2529+* PROGRES PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 1990 BEGIN ADDRESS. HEX LOCATION (OOOO2AD4) IN CSECT (I7A68 ) LENGTH (2) 
g230te Bp ere ee ee fee ears 2015  BIT0080 “ABSOLUTE. HEX VALUE (00000080) 
g532+* = EXITS NORMAL aes Loop. 2010 BUFPT ADDRESS. HEX LOCATION (00002C30) IN CSECT(I7A68 ) LENGTH(2) 
53518 EXITS perce ) ee as 2461 2173 BITS 21652193) 2238 2250 2260 2262 
SR 374% 2315 2327 2337 2339 2391 2403 2413 2415 2472 
Seog eee 576 CE *ABSOLOTE. HEX VALUE (0000002a) 
s2a tte poucaan Dee Ot ane eee eee ene 661 CICB ABSOLUTE. HEX VALUE (00000014) 
003152 6FOD 26F2 SeiS eto? ae” a ce PeCuRi appre 758  CLDCB "ADDRESS. HEX LOCATION (00002712) IN CSECT(I7A68 ) LENGTH(2) 
So318C 445K 264K They 5848s uvA HE ad Ser UP POINTER ADRS EN RM 574 cS ABSOLUTE, HEX VALUE (00000028) 
$0316 3783 oe 237s Be. sconcgre ERROR ADRS FOR INVALID PREP one bee 975 CSA qneao te HEX VALUE (00000029) 
003166 4020 296E FFFF 2549 MVWI X*FFFF',XI08-2 CHANGE TIMEOUT FOR NO-INTERRUPT 605 CSBUF ADDRESS, HEX LOCATION (000026D0) IN CSECT(I7A68 ) LENGTH (1) 
Oo3190 6008 ~h-- 7 rT: EOBER a! TSSUE TO RESET 796 CSDCB ADDRESS. HEY LOCATION (00002752) IN CSECT(I7A68 ) LENGTH (2) 
5O3176 6003 3223 puy7 Sve: pees SET OELAY oO ALON t Buoy A eT ER 2508  DATAIT “ADDRESS. HEX LOCATION (00003052) IN CSECT(I7A68 ) LENGTH(2) 
OOS17A Cel 5238 TBTS (RG. £E) SETUP EXPECTED ERROR 2427 DATA18 *RDDRESS. HEX LOCATION (00002ECO) IN CSECT(I7A68 ) LENGTH(2) 
BOSAdo. Gaee £226 oe 45 OCS sebe MeeGe ayia ee 595 DCBUF “ADDRESS. HEX LOCATION (000026CO) IN CSECT(I7A68  ) LENGTH(1) 
O08 TE. O812 “2082 ee ee ce RET VAN Eo ee 2011 + DC2PT ADDRESS. HEX LOCATION(00002C32) IN CSECT(I7A68 ) LENGTH(2) 
nian ce ee Ne See ener 105 DEVADD ADDRESS. _HE LOCATION (000019D0) IN CSECT(I7A68 ) LENGTH(1) 
000000 2563 ar 590 +DEV1 ADDRESS. HE 1886" 198 oozenay IN CSECT(I7A68  ) LENGTH(2) 
593 DEVY ADDRESS. “HEX LOCATION (000026BE) IN CSECT(I7A68 ) LENGTH(2) 
747 DGDCB ADDRESS. HEX LOCATION (00002702) IN CSECT(I7A68 ) LENGTH(2) 
2112 DLY1 JADDRESS. HEX LOCATION(00002C8C) IN CSECT(I7A68 ) LENGTH(2) 
2166 DLY2 ADDRESS. HEX LOCATION(00002CCA) IN CSECT(I7A68 ) LENGTH (2) 
2243 DLY3 ADDRESS. HEX LOCATION(00002D4A) IN CSECT(I7A68 ) LENGTH (2) 
2320 DLY4 ADDRESS. HEX LOCATION (00002DD6) IN CSECT(I7A68 ) LENGTH (2) 
2477 DLY5 ADDRESS. HEX LOCATION (O0002PEE) IN CSECT(I7A68 ) LENGTH (2) 
2396 DLY6 ADDRESS. HEX LOCATION (QQOO2ESC) IN CSECT(I7A68 ) LENGTH (2) 
2553 DLY7 ADDRESS. HEX LOCATION (00003176) IN CSECT(I7A68 ) LENGTH (2) 
67 DUMMY ABSOLUTE. HEX VALUE (00000000) 
474 ENTPT ADDRESS. HEX LOCATION (000025DE) IN CSECT(I7A68 ) LENGTH(1) 
ae a 1098 4690 a ade 1836 4 1861 2171 2183 2191 
2248 2258 2325 2335 2401 2411 2482 2492 
647 EXIT ABSOLUTE. HEX VALUE (00000006) 
2013 FAKETU ADDRESS. HEX LOCATION (00002C36) IN CSECT(I7A68 ) LENGTH (2) 
493 F00079 ADDRESS. HEX LOCATION (000025E4) IN CSECT(I7A68 ) LENGTH(1) 
497 F00086 ADDRESS. HEX LOCATION (000025FA) IN CSECT(I7A68 ) LENGTH(1) 
501 F00093 ADDRESS. HEX LOCATION (00002610) IN CSECT(I7A68 ) LENGTH(1) 
505 F00100 ADDRESS. HEX LOCATION (00002626) IN CSECT(I7A68 ) LENGTH (1) 
509 F00 107 ADDRESS. HEX LOCATION (0000263C) IN CSECT(I7A68 ) LENGTH(1) 
513 FOO114 ADDRESS. HEX LOCATION (00002652) IN CSECT(I7A68 ) LENGTH €1) 





I17A68 --- SCOPE LOOP P/N=6826993 EC=375222 PAGE 10 I7A68 --- SCOPE LOOP P/N=6826993 EC=375222 PAGE 10A 


CROSS—-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
445 829 RDDCB ADDRESS. HEX LOCATION (00002782) IN CSECT (I17A68 F LENGTH (2) 
517 F00121 ADDRESS. HEX LOCATION (00002668) IN CSECT(I7A68 ) LENGTH(1) pene 984 986 1041 1042 1043 2499 2500 2501 
521 F00128 ADDRESS. HEX LOCATION (0000267E) IN CSECT(I7A68 LENGTH (1 649 RESET ABSOLUTE. HEX VALUE (00000008) 
469 ( ( ) 2110 2164 2241 o348 2394 2475 2551 
525 F00 130 ADDRESS. HEX LOCATION (00002694) IN CSECT(I7A68 ) LENGTH(1) 660 RICB iccoe HEX VALUE (00000013) 
2019 HEBLK )RDBRESS. HEX LOCATION (00002C38) IN CSECT(I7A68 ) LENGTH (2) 650 RID apeor res HEX VALUE (00000009) 
667 HTOE ABSOLUTE. HEX VALUE (0000001A) 851 RKDCB Soe e Sag LOCATION (0OO00027A2) IN CSECT(I7A68 ) LENGTH (2) 
643 IDLE jBBSOLuTE. HEX VALUE (00000002) 862 RMDCB ade HEX LOCATION (000027B2) IN CSECT(I7A68 ) LENGTH (2) 
644 IDLES ABSOLUTE. HEX VALUE (00000003) 885 RSBA ADDRESS. HEX LOCATION (000027DC), IN CSECT (17A68 L LENGTH (2) 
2107 Zi 42 3139 2166 2236 0=6-2243)0=S 223130 23200320 2389 bee 767 778 789 811 22 833 844 855 
888 IDOO ADDRESS. HEX LOCATION (000027EC) IN CSECT(I7A68 ) LENGTH(2) 774 RSDCB BE ohh eay Aare eaeee eos) IN CSECT(I7A68 ) LENGTH (2) 
569 IN ABSOLUTE. HEX YALUE (00000023) 0 RO REGISTER. HEX eee orga? 
1024 1691 1703 1824 1028 1030 1031 2106 2108 2158 2160 2235 2237 
1886 INTBL ADDRESS. HEX LOCATION(00002A2C) IN CSECT(I7A68 ) LENGTH (2) 2312 2314 2388 2390 2469 2471 
1921 0 R1 REGISTER. HEX VALUE (00000001) 
1781 INTER ADDRESS. HEX LOCATION (00002990) IN CSECT(I7A68 ) LENGTH(2) 1967 1970 1973 1976 2111 2113 2165 2167 2242 
1888 2244 2319 2321 2395 2397 2476 2478 2552 2554 
1790 INTES RBRESS. HEX LOCATION (000029A8) IN CSECT(I7A68 ) LENGTH(2) 0 R2 peeGtSieas HEX VALUE(00000002) 
1794 INTET ADDRESS. HEX LOCATION(000029B0) IN CSECT(I7A68 ) LENGTH (2) 0 R3 REGISTER. HEX be pela 
1821 INTOK ae HEX LOCATI 000029B4 7TA68 399 1018 1048 1021 1033 1048 1045 1066 1679 
. ON B4) IN CSECT(I7A LENGTH (2 
iy ee ee ai fee G62 1983 tego 3o88 1785 ee t7uy tat tie2 
DRESS. HEX LOCATION E4) IN CSECT(I7A68 LENGTH (2 
ey na epee ae ecru roooosne, ace gene , es 1920, 1228 1362, 1968, 4300, 1982 
- X LOCATION BC) IN CSECT(I7A6 LENGTH (2 * 
1789 ° 1793-179 ( ( (2) 1634 1055 “1026 1642, 16731676 1690 1691 1693 
1829 INTR2 ADDRESS. HEX LOCATION (000029CA) IN CSECT(I7A68 ) LENGTH(1) 1694 1697 1703 1711 #1783 1784 1786 1790 1794 
1837 aueeg . SeoRESS-“HEx LOCATTON(O00029NE 7268 185i 185¢ 1858 1881 2086 21041 2114 2784 2161 
E OCATION D8) IN CSECT(I7A LENGTH (2 
meee eet. epee eee eee ouisuane an Ss ae gigs 371 3473 gifo 3180 2ips Zig 2188 3134 
RESS. HEX LOCATION A IN CSECT (I7A6 LENGTH (2 
1027 1692 1926 2060 | 2109 2163 2240 345 233 2262 2267 2308 2315 2322 2325 2327 2332 2335 
1o79 once «= “4btanS2°°uex xocanzoy coognza2e ase gat] 3a13 Sa48 3085 Bach 27) 2890 2082 248d 
R ‘ X LOCATIO A IN CSECT (I7A LENGTH (2 
961 964 967 ZONA 986 bad 992 ( 995 1003 (2) 2488 2492 2494 2496 2503 2545 2555 
1007 1011 1038 1041 1674 1680 1925 0 R5 REGISTER. HEX grEveyuouerce) 
1880 IOMOD ADDRESS. HEX LOCATION (00002A26) IN CSECT(I7A68 ) LENGTH (2) 915 916 (969 971 (977 (979° _983 (985 (997 
1028 1029 1666 1669 1675 999 1016 1018 1019 1021 1043 1045 1680 1682 
37 I7A68 CSECT. START(00002500) LENGTH (3206) ESDID(1) 1684 1686 1702 1709 1831 1832 1833 1864 1865 
37 1867 1869 1918 1919 1964 1977 
1996 LINE1 ADDRESS. HEX LOCATION (00002B0C) IN CSECT(I7A68  ) LENGTH(40) 0 R6 REGISTER. HEX eto aeons: 
1967 917 918 1014 1678 1698 1712 1748 1853 1858 
589 LSTIO ADDRESS. HEX LOCATION (000026B6) IN CSECT(I7A68 ) LENGTH(2) 1860 1868 1871 1873 1923 1929 1931 1969 1974 
1014 1678 9 1975 2057 2061 2102 2115 2155 2169 2181 2189 
566 MI ABSOLUTE. HEX VALUE (00000020) 2232 2246 2256 2268 2309 2323 2333 2345 2385 
1839 2399 2409 2423 2466 2480 2490 2504 2546 2556 
1970 MVBUF ADDRESS. HEX LOCATION (00002A98) IN CSECT(I7A68 ) LENGTH(2) 0 R7 REGISTER. HEX Se oan 
1974 633 913 970 976 984 998 1017 1020 1027 
578 NG ABSOLUTE. HEX VALUE (0000002C) 1042 1681 1685 1692 1787 1828 1916 1921 1926 
1842 1959 1968 1971 1983 1986 2054 2060 2099 2109 
573 NI jBBSOLUTE. HEX VALUE (00000027) 2132 2163 2228 2240 2306 2317 2382 2393 2463 
375 N00001 ADDRESS. HEX LOCATION (00002548) IN CSECT (I7A68 LENGTH (2 594 sCTID ADDRESS. HEX LOCATION (00002688) IN CSECT (I7A68 LENGTH (2 
315 4 ( ( a} 781 858 914 969 972 bo? 1000 ei e) 
384 N00002 ADDRESS. HFX LOCATION (00002556) IN CSECT(I7A68 ) LENGTH (2) 785 SKDCB ADDRESS. HEX Woo sage ogee Sb IN CSECT (I7A68 } LENGTH (2) 
318 961 2178 2179 2187 2252 2253 2329 (2330 5 
387 n00003 ADDRESS. HEX LOCATION (0000255A) IN CSECT(I7A68 ) LENGTH (2) 2406 2486 2487 
321 376 651 START ABSOLUTE. HEX VALUE(0000000A) 
396 NO0004 ADDRESS. HEX LOCATION(00002568) IN CSECT (I7A68 ) LENGTH (2) 1695 
324 104 SUPSTAT ADDRESS. HEX LOCATION (000019C4) IN CSECT(I7A68 ) LENGTH(1) 
399 N00005 ADDRESS. HEX LOCATION (0000256C) IN CSECT(I7A68 ) LENGTH (2) 1981 
327 388 2063 SO3E ADDRESS. HEX LOCATION(00002C5C) IN CSECT(I7A68 ) LENGTH(4) 
408 N00006 ADDRESS. HEX LOCATION(0000257A) IN CSECT(I7A68 ) LENGTH(2) 2058 2061 
330 2117 S10E ADDRESS. HEX LOCATION (00002C98) IN CSECT(I7A68 ) LENGTH(4) 
411 N00007 ADDRESS. HEX LOCATION(0000257E) IN CSECT(I7A68 ) LENGTH(2) 2103 2116 
333 400 2194 S11E ADDRESS. HEX LOCATION(00002D18) IN CSECT(I7A68 ) LENGTH (4) 
420 N00008 ADDRESS. HEX LOCATION(0000258C) IN CSECT(I7A68 ) LENGTH(2) 2156 2170 2174 2182 2186 2190 
336 2271 S15E ADDRESS. HEX LOCATION(00002DA4) IN CSECT(I7A68 ) LENGTH(4) 
423 N00009 ADDRESS. HEX LOCATION (00002590) IN CSECT(I7A68 ) LENGTH(2) 2233) 2247 2251 2257 2261 2269 
339 412 2347 S16E ADDRESS. HEX LOCATION(00002E2A) IN CSECT(I7A68 ) LENGTH(4) 
/ 432 N00010 ADDRESS. HEX LOCATION (0000259EF) IN CSECT(I7A68 ) LENGTH (2) 2310 2324 2328 2334 2338 2346 
342 2329 S16F ADDRESS. HEX LOCATION(OOO02DEA) IN CSECT(I7A68 ) LENGTH (6) 
435 N00011 ADDRESS. HEX LOCATION (000025A2) IN CSECT(I7A68 ) LENGTH (2) 2326 
345 424 2506 S17E ADDRESS. HEX LOCATION (0000304E) IN CSECT(I7A68 ) LENGTH (4) 
444 N00012 ADDRESS. HEX LOCATION (000025B0) IN CSECT(I7A68 ) LENGTH(2) 2467 2481 2485 2491 2495 2505 
348 24 86 S17F ADDRESS. HEX LOCATION (00003002) IN CSECT(I7A68 ) LENGTH(6) 
447 N00013 ADDRESS. HEX LOCATION (000025B4) IN CSECT(I7A68 ) LENGTH (2) 2483 
351 436 2425 S18E ADDRESS. HEX LOCATION (OO002EBC) IN CSECT(I7A68 ) LENGTH (4) 
456 NOOO 14 ADDRESS. HEX LOCATION (000025C2) IN CSECT(I7A68 ) LENGTH (2) 2386 2400 2404 2410 2414 2424 
354 2405 S18F ADDRESS. HEX LOCATION (00002E70) IN CSECT(I7A68 ) LENGTH(6) 
459 n00015 ADDRESS. HEX LOCATION(000025C6) IN CSECT(I7A68 ) LENGTH (2) 2402 
357 448 2558 S19E ADDRESS. HEX LOCATION(00003182) IN CSECT(I7A68 ) LENGTH(4) 
468 N00016 ADDRESS. HEX LOCATION(000025D4) IN CSECT(I7A68 ) LENGTH(2) 2547 2557 
360 2187 TSS11 ADDRESS. HEX LOCATION (00002D04) IN CSECT(I7A68 ) LENGTH (6) 
471 N00017 ADDRESS. HEX LOCATION (000025D8) IN CSECT(I7A68 ) LENGTH(2) 2184 
363 460 2060 TS03 ADDRESS. HEX LOCATION(00002C52) IN CSECT(I7A68 ) LENGTH (4) 
531 OPTN1 ADDRESS. HEX LOCATTON (00002688), IN CSECT (I7A68 } LENGTH (2) ; 378 
1783 1823 2056 2101 2154 2231 2308 2384 2465 2109 TS10 ADDRESS. HEX LOCATION(00002C82) IN CSECT(I7A68 ) LENGTH (4) 
554 | OPTN3 {RDBRESS; HEX LOCATION (000026AE) IN CSECT(I7A68 ) LENGTH(2) 2175 TS11 ADDRESS. HEX LOCATION (OOOO2CDE) IN CSECT(I7A68 ) LENGTH (2) 
101 PARMARA ADDRESS. HEX LOCATION (0000196EF) IN CSECT(I7A68 LENGTH (1 2262 TS15 ADDRESS. HEX LOCATION (00002D80) IN CSECT(I7A68 LENGTH (2 
382 394 406 448 | 430 hu? 454 6 ™ 426 2259 ) ( oa 
69 PID ADDRESS, HEX LOCATION (00093800) _IN CSECT (I7A68 } LENGTH (1) 2252 TS15F ADDRESS. HEX LOCATION(00002D5E) IN CSECT(I7A68 ) LENGTH (6) 
80 81 82 83 84 85 86 87 88 2339 TS 16 ADDRESS. HEX LOCATION (00002E0C) IN CSECT(I7A68 ) LENGTH (2) 
89 90 91 92 93 94 95 96 97 438 2336 
98 99 100 101 102 103 104 105 106 2496 TS17 ADDRESS. HEX LOCATION (00003024) IN CSECT(I7A68 ) LENGTH (2) 
107 108 (109 110 111 112 1978 462 2493 
2014 PIDMSG10 ABSOLUTE. HEX VALUE (OOOOF1FO) 2415 TS18 ADDRESS. HEX LOCATION (00002E92) IN CSECT(I7A68 ) LENGTH(2) 
653 PREP BggoL ute. HEX VALUE (0000000C) 2550 TS19 ADDRESS. HEX LOCATION (0000316C) IN CSECT(I7A68 ) LENGTH(4) 





ETAGS === 


DECLARED 
2162 
2239 
2316 
2473 
2392 

92 
623 


74 
75 
2107 
2159 
2236 
2313 
2470 
2389 
2054 
2099 
2152 
2229 
2306 
2382 
2463 
2543 
818 
840 
807 
657 
658 
879 
763 
570 


568 
1666 


1852 
1859 
1869 
1674 
1861 
1872 
1669 
1745 
1678 
1691 
1703 











6826993 EC= 


CSECT (I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT(I7A68 
2194 (2229 

ésner (fines 
CSECT (I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT(1I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT(I7A68 
CSECT (I7A68 
CSECT (17A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT(I7A68 


CSECT (I7A68 
CSECT (I7A68 


245 2254 
479 2488 


CSECT (I7A68 
993 (1001 


CSECT (I7A68 
CSECT(I7A68 
CSECT (I7A68 
CSECT(I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT (I7A68 
CSECT (I7A68 


CSECT(I7A68 
2239 2255 
2473 2489 


7 = Se ok Ns 
SCOPE LOOP P/N= 
CROSS-REFERENCE LISTING 
NAME ATTRIBUTES AND REFERENCES 
TT711 ADDRESS. HEX LOCATION (00002CBA) IN 
TT715 jADBPESS. HEX LOCATION (00002D3A) IN 
TT 716 ADDRESS. HEX LOCATION (00002DC6) IN 
TT717 ADDRESS. HEX LOCATION (00002FDE) IN 
TT718 ADDRESS. HEX LOCATION (OOOO02EHC) IN 
TUMSGWTR ADDRESS. HEX LOCATION(000018BA) IN 
TURTN ADDRESS. HEX LOCATION (000026F2) IN 
1988 2054 2063 2099 2117 2152 
2306 2347 2382 2425 2463 2506 
TUSTATUS jADBRESS. HEX LOCATION(00001818) IN 
TU WORK ADDRESS. HEX LOCATION (0000181A) IN 
1961 1962 1963 1965 2021 
T1IOTS ADDRESS. HEX LOCATION (00002C7E) IN 
T1175 > ADDRESS. HEX LOCATION(00002CB4) IN 
T1575 oADDRESS. HEX LOCATION (00002D34) IN 
T16T5 ADDRESS. HEX LOCATION (00002DC0) IN 
T17T5 > ADDRESS. HEX LOCATION(00002FD8) IN 
T18T5 oADDRESS. HEX LOCATION (00002E46) IN 
T7A20 ADDRESS. HEX LOCATION (00002C3E) IN 
T7A21 ADDRESS. HEX LOCATION (00002C60) IN 
T7A22 ADDRESS. HEX LOCATION (00002C9C) IN 
T7A23 ADDRESS. HEX LOCATION(00002D1C) IN 
T7A24 ADDRESS. HEX LOCATION(00002DA8) IN 
T7A25 ADDRESS. HEX LOCATION (00002E2E) IN 
T7A26 ADDRESS. HEX LOCATION (00002FCO) IN 
T7A27 ADDRESS. HEX LOCATION (00003152) IN 
VRDCB ADDRESS. HEX LOCATION (00002772) IN 
WKDCB {ADBRESS. | HEX LOCATION (00002792) IN 
WRDCB ADDRESS. HEX LOCATION (00002762) IN 
992 1038 2818 2419 2420 2421 
WRITO ABSOLUTE. HEX VALUE (00000010) 
WRIT1 ABSOLUTE. HEX VALUE (00000011) 
WRSID ADDRESS. HEX LOCATION (00992700), IN 
770 847 915 1004 1008 2270 
WSDCB ADDRESS. HEX LOCATION (00002722) IN 
1007 1008 2342 2343 
XE ABSOLUTE. HEX VALUE (00000024) 
1790 1852 2114 2168 2180 2188 
2322 2332 2344 2398 2407 2422 
XI ABSOLUTE. HEX VALUE (00000022) 
1026 1694 1837 
XIO ADDRESS. HEX LOCATION (00902912) IN 
962 965 973 980 £987 90 
1009 1012 
XIOCK ADDRESS. HEX LOCATION (000029E6) IN 
XIOCO ADBRESS- HEX LOCATION(000029F8) IN 
XIOCQ ADDRESS. HEX LOCATION (O0002A0E) IN 
XIOCS {ADBRESS. HEX LOCATION (00002924) IN 
XIOCV ADDRESS. HEX LOCATION (000029FC) IN 
XIOCX ADDRESS. HEX LOCATION(00002A1A) IN 
XIODG ADDRESS, HEX LOCATION (00002918) IN 
XIOER ADDRESS. HEX LOCATION (00002984) IN 
XI01 ADDRESS. HEX LOCATION (00002934) IN 
XI02 BDDRESS. HEX LOCATION (0000295A) IN 
XI08 ADDRESS. HEX LOCATION (00002970) IN 
1034 1036 1710 2105 2162 2177 
2318 2331 2341 2392 2408 2417 
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LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (1) 
jo) LENGTH (2) 


LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


Pee le eee 


LENGTH (2) 
) LENGTH (2) 


LENGTH (4 
1005 ”) 


) LENGTH (2) 
) LENGTH (2) 
) LENGTH (4) 
) LENGTH(6) 
) LENGTH (2) 
) LENGTH (4) 
) LENGTH (6) 
) LENGTH (2) 
) LENGTH (4) 
) LENGTH (2) 
goby PROTA (2) 
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